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CHAPTER ONE 
FLOATING POINT INTERPRETER 
1.1 Introduction : 

The GRI Floating Point Intrepreter is a complete system that allows the 
user to process data in floating point arithmetic. Floating point arithmetic, 
through the ise of multiple precision arithmetic and an exponential concept 
greatly extends the range of precision available to the user beyond that of 
fixed point arithmetic. It also, through utility routines, frees the user 
of the bookkeeping involved with scaling and unsealing of numbers that is 
necessary in a fixed point system. 

GRI computers have an instruction set which is known as machine language. 
The computer reads instruction words out of its memory and hardware is ac- 
tivated by the interpretation of each instruction word to cause the execution 
of that instruction. An interpretive software system fetches instructions 
which we shall call commands from the computer's memory and causes various 
subroutines to be entered as a result of the interpretation of the command. 
These commands fetched by the interpreter are also called psuedo-instructions 
because their format deviates from the machine's instruction format. The 
standard machine format instruction is 

WORD 1 SDA MOD DDA 

WORD 2 [ADDRESS] (if a memory reference in- 
struction) 

A pseudo-instruction or command such as the ones used in the GRI Floating 
Point Interpreter looks like this: 

WORD 1 OP CODE 

WORD 2 [ADDRESS] (if a memory reference pseudo-instruction) 

The interpreter actually simulates the process used by the computer's 
hardware to execute an instruction. The interpreter fetches the OP CODE words 



1-2 

FLOATING POINT MANUAL 
74-44-001-C 



and addresses, sets up arguments, flags, and performs a function on the ar- 
gument (s) as specified by the OP CODE of the pseudo-instruction. 

An interpretive approach to floating point arithmetic provides the user 
with a functionally oriented language that makes usage of floating point 
arithmetic much easier than if it were done through a series of subroutines 
called in machine language. The user references floating point numbers 
with a single address which is the first address of the two word floating 
point number. The interpreter takes care of the address bookkeeping neces- 
sary for two word argument handling. The interpreter also maintains a set 
of accumulators much the same as an arithmetic unit. Arguments and results 
are manipulated and left in these accumulators. The interpreter utilizes 
two such accumulators plus an index register. 

There are a set of commands in the interpretive system that are not 
floating point arithmetic commands. These are program control commands such 
as conditional jumps and index register manipulators. The index is simply 
used to keep track of the number of times command loops are executed. These 
commands, although they could be effected by use of basic machine language, 
are also provided in the interpretive mode because they can save the user time 
that would be spent entering and leaving the interpretive mode, and almost 
always save space in terms of the coding needed. 

When the user is ready to execute commands in his program, he first is- 
sues a machine language command that causes a jump to the interpreter to take 
place. The interpreter now assumes control and starts fetching commands which 
follow the jump that caused interpretive mode entry. If the user wishes to 
begin executing machine language instructions, he must issue an interpretive 
command that causes the interpreter to relinquish control. In essence, the 



1-3 

FLOATING POINT MANUAL 
74-44-001-C 



machine is running in two different modes ; a machine language mode and a 
psuedo-language mode — in this case, a floating point language. 

The GRI interpretive system offers a novel error trap feature which 
may be invoked by the user to assist in tracking down places in the program 
where data values are causing error checks to occur. Errors such as dividing 
by 0, exceeding the capacity of the psuedo-accumulators in either the mantissa 
or exponent portions, etc., can all be caused by an unknown data base. All 
manipulations of data refer to manipulations in and out of the psuedo-accumulator 
called FAC. This accumulator behaves like the accumulator in an adding machine. 
It must be loaded to initialize it, stored to save it, and all arithmetic op- 
erations leave their results in the accumulator. Commands with two operands 
are called binary commands and operate on a data word in user memory and 
the contents of FAC, replacing the result in FAC. Commands with one operand 
are called unary commands and operate on FAC, leaving their results in FAC. 
Let us consider a simple example: 

Compute R = f|x 2 + Y 2 

JU $SFI ; enter floating mode 

FLDA X ; fetch X to FAC 

FMPY X ;X 2 in FAC 

FSTA Tl ; store FAC in temporary loc 

FLDA Y ; fetch Y to FAC 

FMPY Y ;Y 2 in FAC 

FADD Tl ;X 2 + Y 2 i n FAC 

FSQT ; fjx 2 + Y 2 in FAC 

FSTA R ;store result in R 

FEXT ;exit from floating mode 
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1.2 Basic Package, $SFI : 

Floating point arithmetic capabilities are provided through an inter- 
pretive package. Associated with the package is an external*^ internal for- 
mat data conversion routine that can be easily tailored to the character set 
being processed. 

The interpretive package is invoked by a normal subroutine call. The 
call is followed by a string of commands that are established by use of 
equate statements during the assembly. The last command in the sequence 
causes a return to the calling program. Operations are performed using a 
pseudo accumulator maintained locally by the interpretive package. The 
package also contains a 16 bit pseudo index to allow loops within the command 
sequence. Without this feature, it would be necessary to exit and re-enter the 
interpretive package and perform loop counts outside the interpreter i Al- 
though the latter procedure is, in most instances, faster in terms of time 
taken to do the loop, it usually involves considerably more code and, there- 
fore, takes more space. 

As an example of a typical problem programmed in the interpreter 
language, we evaluate the polynomial 

Y = A + A X X + A 2 X 2 + A 3 X 3 + A4X 4 
which can iteratively be expressed as Y = (((A.X+A )X+A )X+A )X+A_ 

as follows : 
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JU 


$SFI 




FLDX 


M4 




FLDA 


A4 


LOOP: 


FMPY 


X 




FADDD 


CONST 




FJIX 


LOOP 




FSTA 


Y 




FEXT 





; ENTER INTERPRETER 

;LOAD PSEUDO INDEX WITH -4 

;LOAD PSEUDO-ACCUMULATOR 

;MULTIPLY IT BY X 

;DEFERRED ADD A3 (THEN A2, Al, AO) 

; COUNT THE LOOP 

; STORE RESULT IN Y 

;EXIT THE INTERPRETER 



Y: 


WRD 


0,0 


CONST: 


WRD 


A3-1 


X: 


WRD 


XI, X2 


A4: 


WRD 


A41.A42 


A3: 


WRD 


A31,A32 




WRD 


A21,A22 




WRD 


A11,A12 




WRD 


A01,A02 


M4: 


WRD 


-4 



; STORAGE SPACE FOR ANSWER 

; DEFERRED ADDRESS (GETS CHANGED) 

;TWO WORD FLOATING POINT VALUE OF X 

;FLOATING A4 VALUE 

;A3 

;A2 

;A1 

;AO 

;ONE WORD INDEX COUNT VALUE 
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1.3 Floating Point Format : 

Internal representation of a floating point number occupies two successive 
locations in memory and consists of a fixed point fraction (mantissa) with an 
associated exponent. The mantissa is in two's complement notation with a 
sign bit followed by 23 bits of significance. The binary point is assumed 
to be immediately to the right of the sign. The exponent, which is the power 
of two by which the mantissa is multiplied, has the range -2OO3 to +1778 
( 2 -128 to 2 +127 ) . This exponent is represented in "excess 200 8 " notation by 
adding +200 g to the true exponent. This requires a total of 8 bits and the 
range of the excess 200 g notation is 000 to 377g, where 200 g represents 20. 
Thus, a floating point number looks like: 

15 14' 

Word 1 (16 bits) |s | Fraction - most significant "] 

15 87 

Word 2 (16 bits) iFraction - least significant I Exponent! 

This format allows an accuracy of 6+ decimal digits and a range of +1.469 368x10" 39 
to +1.701411xl0 +38 . 

To obtain correct results, all floating point operations (except FLDA, 
FSTA and FNOR) require the floating point numbers being operated on to be 
normalized; that is, bit 14 of word 1 must be the most significant bit of 
the fraction (mantissa) . The only exception to this requirement is a floating 
point zero, which has no significant bits — a normalized floating point zero 
is two words of all zero (mantissa = 0, excess 2OO3 exponent = 0). 
Note: The mantissa of a normalized floating point number other than zero 
has an absolute value in the range l/2^jmantissal ^1. 



Examples: 
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Decimal 

1.0 

1.25 

-1.0 

-1.25 

100. 

-100. 

n £ 
\j • _/ 

0.25 

IT 

TT/2 



Internal Floating Point (octal) 



word 1 


word 2 


040000 


000201 


050000 


000201 


140000 


000201 


130000 


000201 


062000 


000207 


116000 


000207 


n/.nnAA 
utwuu 


r\r\r\nrir\ 


040000 


000177 


062207 


166602 


062207 


166601 


115570 


011602 



1.4 Internal Registers : 

There are three pseudo^-registers contained in the interpreter i) the 
pseudo-accumulator (FAC) , ii) a temporary pseudo-accumulator (FTM) , and 
iii) the pseudo-index register (FINDX) . 

i) FAC - The floating pseudo-accumulator. This consists of three 
locations in the interpreter and is used to contain the left-hand argument 
of a binary floating point command as well as the results of any floating 
point command. It is organized as follows: 

FACHI - contains high order mantissa and sign of value in FAC 
FACLO - contains low order mantissa of value in FAC 
FACXP - contains excess 200 o exnonent of value in FAC 
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ii) FTM - temporary pseudo-accumulator. This consists of three lo- 
cations analogous to FAC. They are named FTMHI, FTMLO, and FTMXP. The 
temporary accumulator is used to hold an additional floating point value 
for those commands which require two floating point values in order to op- 
erate, e.g. a type II (binary) command (see 2.2.2). 

iii) FINDX - pseudo index. This consists of one location of the same 
name and holds the current value of the index. 

Note: FACHI, FACLO and FTMHI, FTMLO are treated as full 31 bit double 

precision quantities for the basic arithmetic operations add, sub- 
tract, multiply, and divide. 



2-1 



CHAPTER TWO 
BASIC COMMANDS 



2.1 Command Categories : 



The commands are of the following categories 
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load & store 



II 



binary 
commands 



III 



unary 
commands 



IV 



index 
commands 



V 



conditionals 



VI 



exit 



; v the command specifies the source or destina- 
tion of floating point data - the corresponding 
destination or source is the pseudo accumula- 
tor. 



; the command specifies the source of the 
rightmost operand - the floating accumulator 
contains the leftmost operand. The result 
will be in the accumulator* 



; the command merely specifies the function to 
be performed on the accumulator. The result 
will be in the accumulator. 

; the command specifies the source or destina- 
tion of an index value - the corresponding 
destination or source is the pseudo index. 

; the command specifies an address to which con- 
trol passes if the test defined by the command 
is true - the address must contain another 
floating point command. Tests may be per- 
formed on the floating accumulator, certain 
flags, and the index. 

; this command causes a return to the calling 
program. 
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The load & store (Type I) and binary (Type II) commands may 
specify deferred (indirect and auto-indexed) addressing mode. Deferred 
addressing in floating point commands operates exactly as in machine 
language . 

2.2 Command Descriptions : 

2.2.1 TYPE I COMMANDS -- LOAD & STORE COMMANDS 

LOAD FLOATING ACCUMULATOR (AC) 

mnemonic address code no. of words 
FLDA X 01 2 

The contents of the location specified by X and X + 1 are treated as 
a floating point number and are loaded into the floating point pseudo ac- 
cumulator. The floating point number in locations X and X + 1 is split into 
three parts i) X, which consists of the high order mantissa, goes into 
FACHI; ii) bits 8-15 of X + 1, which consists of the low order mantissa, 
goes into bits 8-15 of FACLO and bits 0-7 of FACLO are set to zero; and 
iii) bits 0-7 of X + 1, which consists of the excess 200 g exponent, goes 
into bits 0-7 of FACXP and bits 8-15 of FACXP is set to zero. 

DEFERRED LOAD FLOATING AC 

mnemonic address code no. of words 
FLDAD A 101 2 

The contents of location A is incremented by one, replaced in A, and 
the result is used as the effective address X; then the contents of A are 
incremented and replaced a second time forming the effective address X + 1. 
The contents of X and X + 1 are then treated as a floating point number and 
loaded into FAC as explained under FLDA. 
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STORE FLOATING AC 

mnemonic address code no , of words 
FSTA X 02 2 

The contents of FAC are rounded into bit 8 of FACLO, bits 0-7 of FACLO 
are set to zero. Then FAGHI, FACLO, and FACXP are packed into a floating 
point number and stored in X, and X + 1. Note that this operation alters 
FAC so that it agrees with the value stored in X, and X + 1. 

It is also possible for the rounding operation to cause exponent over- 
flow (excess 200g exponent exceeds +377g) . This can occur only if the 
number being rounded is very close to the largest possible positive float- 
ing point number. The value stored in this case will be X = 077777c, 

X + 1 = 111171 Q , a nd FXFLG will be set non-zero. A successful FSTA will set 
o 

FXFLG to zero. 

DEFERRED STORE FLOATING AC 

mnemonic address code no. of words 
FSTAD A 102 2 

The contents of A are incremented twice as explained under FLDAD, form- 
ing effective addresses X and X + 1 into which FAC is stored as explained 
under FSTA. 

2.2.2 TYPE II COMMANDS - BINARY COMMANDS 

All Type II commands depend on both FAC and the argument of the 
command to have normalized mantissas . If unnormalized numbers are 
used, the results are unpredictable. A FNOR instruction (see 2.2.3) is 
provided to normalize any quantity if it is necessary to do so. Also, 
if all inputs are normalized, the results in FAC will be normalized as 
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will the value retrieved from FAC by use of an FSTA instruction. 

Type II commands can cause exponent underflow or overflow if the 
number created in FAC by the command has an excess 200 fi exponent out- 
side the range to +3773 respectively. The occurrence of either 
condition is indicated by FXFLG being non-zero after the operation 
has been completed. It may be tested by use of the FJEV command. 
The successful completion of a Type II command will set FXFLG to zero. 

FLOATING ADD 

mnemonic address code no. of words 
FADD X 03-2 

The floating point number in locations X and X + 1 are added to 
the contents of FAC, and the result replaces FAC. 

DEFERRED FLOATING ADD 

mnemonic address code no. of words 
FADDD A 103 2 

The contents of A are incremented twice as explained under FLDAD, 
forming effective addresses X and X + 1, the contents of which are 
added to FAC, and the result replaces FAC. 

FLOATING SUBTRACT 

mnemonic address code no. of words 
FSUB X 04 2 

The floating point number in locations X and X + 1 are subtracted 
from the contents of FAC, and the result replaces FAC. 
DEFERRED FLOATING SUBTRACT 

mnemonic address code no. of words 

FSUBD A 104 9 
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Effective address is formed from A as in FADDD. 

FLOATING MULTIPLY 

mnemonic address code no. of words 
FMPY X 05 2 

FAC is multiplied by the floating point number in X and X + 1. 
The result replaces FAC. 
DEFERRED FLOATING MULTIPLY 

mnemonic address code no. of words 
FMPYD A 105 2 

Effective address is formed from A as in FADDD. 
FLOATING DIVIDE 

mnemonic address code no. of words 
FDIV X 06 2 

FAC is divided by the floating point number in X and X .+ 1. The 
result replaces FAC. Divide check will occur if X, X + 1 is zero or 
not normalized. This causes FAC to be set to the largest possible 
floating point number of the sign which would be the result of the 
divide if it could take place, and the divide check flag (FDFLG) will 
be non-zero. A successful divide sets FDFLG to zero. 

Note - if both FAC and X are 0, the result will be the largest 
possible positive floating point number in FAC with FDFLG set non-zero 
DEFERRED FLOATING DIVIDE 

mnemonic address code no. of words 
FDIVD A 106 2 

Effective address is formed from A as in FADDD. 
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FLOATING ADD MAGNITUDE 

mnemonic address code no. of words 
FADM X 07 2 

The absolute magnitude of the floating point number in X and 
X + 1 is added to FAC. The result replaces FAC. 

DEFERRED FLOATING ADD MAGNITUDE 

mnemonic address code no. of words 
FADMD A 107 2 

Effective address is formed from A as in FADDD. 

FLOATING SUBTRACT MAGNITUDE 

mnemonic address code no. of words 



FSBM X 10 2 

The absolute magnitude of the floating point number in X and 
X + 1 is subtracted from FAC. The result replaces FAC. 

DEFERRED FLOATING SUBTRACT MAGNITUDE 

mnemonic address code no. of words - 
FSBMD A 110 2 

Deferred subtract magnitude. Effective address is formed from 
A as in FADDD. 
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2.2.3 TYPE III COMMANDS - UNARY COMMANDS 

FLOATING ABSOLUTE VALUE 

mnemonic address code no. of words 
FABS none 14 1 

The absolute value of the FAC replaces the FAC, i.e. I FAC I 
replaces FAC. 

FLOATING SQUARE 

mnemonic address code no. of words 
FASQ none 15 1 

The square of FAC is returned in FAC. This instruction requires 
that the mantissa of FAC be normalized prior to execution as in 
type II instructions (see 2.2.2). 

FLOATING NORMALIZE 

mnemonic address code no. of words 
FNOR none 16 1 

The contents of FAC are normalized and replace FAC. This in- 
struction can cause exponent overflow or underflow in which case FAC 
will contain the largest possible negative floating point number or 

all zeros respectively and FXFLG will be set non-zero. A successful 
normalize will set FXFLG to zero. 

FLOATING NEGATIVE VALUE 

mnemonic address code no. of words 

FNEG none 17 1 

The contents of FACHI and FACLO are twos complemented, i.e. -FAC 
replaces FAC. 
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2.2.4 TYPE IV COMMANDS - INDEX COMMANDS 

LOAD INDEX 

mnemonic address code no. of words 
FLDX I 27 2 

The pseudo-index is loaded with the 16 bit contents of location I. 

STORE INDEX 

mnemonic address code no. of words 
FSTX I 30 2 

The 16 bit pseudo-index is stored into location I. 

2.2.5 TYPE V COMMANDS - CONDITIONALS 

These commands allow the program to alter the path of control which the 
interpreter is following based on the results of certain tests. The lo- 
cation to which the interpreter is caused to transfer must contain a valid 
floating point command. If the interpreter should encounter an invalid com- 
mand at any time during execution, it will come to a halt with the address 
of the illegal command displayed in the MB register on the front panel. This 
is the only halt in the program. 

JUMP UNCONDITIONAL 

mnemonic address code no. of words 
FJMP C 20 2 

Unconditional jump. The interpreter will take the next command 
from location C and continue from there. 
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JUMP IF AC POSITIVE 

mnemonic address code no. of words 
FJAP C 21 2 

If FAC is positive or zero, the interpreter takes the next 
command from location C. Otherwise, the interpreter continues with 
the command following the FJAP command. 

JUMP IF AC ZERO 

mnemonic address code no. of words 
FJAZ C 22 2 

If FAC is - the interpreter will take the next command from 
location C. Otherwise, the interpreter continues with the command 
following the FJAZ command. Note: The interpreter tests only FACHI 
for zero. FAC may be non-zero and FACHI = only if the number in 
FAC is not normalized. This condition cannot be created by the inter- 
preter unless the user has introduced unnormalized numbers into his 
calculations (see 2.2.2). 

JUMP IF AC NEGATIVE 

mnemonic address code no. of words 
FJAN C 23 2 

If FAC is negative, the interpreter will take the next command 
from location C. Otherwise, the interpreter continues with the com- 
mand following the FJAN command. 
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JUMP IF EXPONENT OVERFLOW (OR UNDERFLOW) 

mnemonic address code no. of words 
FJEV C 24 2 

If FXFLG is non-zero, the interpreter will take the next command 
from location C and set FXFLG to zero. Otherwise, the interpreter will 
continue with the command following the FJEV command. The FJEV command 
is used to detect the occurrence of either exponent overflow or exponent 
underflow resulting from the execution of the last preceding Type II command 
or FSTA, FNOR, or FASQ. If desired, the type of overflow may be detected 
by an FJAZ command at location C, since exponent underflow returns FAC=0, 
and exponent overflow returns the largest number (+ or -) in FAC. 
JUMP IF DIVIDE CHECK 

mnemonic address code no. of words 
FJDC C 25 2 

If FDFLG is non-zero, the interpreter will take the next command 
from location C and set FDFLG to zero. Otherwise, the interpreter con- 
tinues with the command following the FJDC command. The FJDC command is 
used to detect the occurrence of divide check during execution of the last 
previous FDIV or FDIVD command. If desired, one may test whether the con- 
dition occurred because the divisor was or not normalized by checking the 
divisor with an FLDA and FJAZ instruction at location C. 
JUMP IF INCREMENTED INDEX NOT ZERO 

mnemonic address code no . of words 
FJIX C 26 2 

The pseudo-index (FINDX) is incremented by one, and if the result is 
non-zero, the interpreter takes the next command from location C. 
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If the result is 0, the interpreter continues with the command follow- 
ing the FJIX instruction. The pseudo- index will contain the incremented 
value whether or not the jump occurs. 

2.2.6 TYPE VI COMMAND - EXIT , 

EXIT FLOATING INTERPRETER 

mnemonic address code no. of words 
FEXT . none 1 

This command causes the interpreter to return control to the 



user at the location immediately following the FEXT. 



KTsvn ~ ~ -C 4-U « 



i.lV/11 



v/j. Li 



internal registers or flags are altered by either the FEXT or entering 
the package. The AO is returned in the ADD state. 
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CHAPTER THREE 
DATA CONVERSION 

3.1 Introduction : 

Two conversion routines are provided; one to convert from floating point 
to character, the other to convert from character to floating point. Both 
conversion routines are core to core operations rather than being bound to a 
particular I/O device (that is, characters are fetched from and stored into 
memory). For added flexibility, all characters are referenced with an index 
into a character set table called @FCST, which initially contains 8-bit 
ASCII codes. Changing the character set for a specific I/O device can easily 
be accomplished by changing the character codes in @FCST. 

External floating point format is expressed as a mantissa or fraction 

portion and a power of ten by which the mantissa is multiplied. This is 

written as ,+n.nnnnnn. E +nn, where n is a decimal digit. The number to the 
mantissa exponent 

right of the E is the power of ten by which the mantissa is multiplied. Thus, 

-3.527614E+03 is -3.527614*10 3 or -3527.614. The floating point number 

+172.100123E-02 is +172.100123*KT 2 or +1.72100123. 
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3.2 Floating Point to Character Conversion : 



NAME; 



SUBROUTINES CALLED: 



@SFC 
$SFI, @FXC 



ALTERED REGISTERS & FLAGS 



FAC, FTM, FXFLG, FDFLG 



CALLING SEQUENCE: 



ARGUMENTS : 



FUNCTION: 



JU @SFC 
WRD el-1 
WRD e2 
WRD e3 
return 

el is the address of the location into 
which the first output character is 
to be stored. 

e2 is the address of the two word float- 
ing point argument. The argument need 
not be normalized but the magnitude must 
be zero or in the range £2~ 129 , 2 +128 ) 
(in decimal this is 1.469367E-39 tp 
1.701411E+38) 

e3 is the address of the error return. 

Converts a signed two word floating 
point argument to a string of thirteen 
characters, stored one character per 
word, right justified starting in lo- 
cation el. The character string is of 
the format 



* * n.nnnnnn E<+>nn 



where n is character representation of a 
decimal digit. 
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ERRORS : 



NOTE: 



LENGTH: 



If normalization of the floating point 
argument caused either exponent over- 
flow or underflow, an * is stored rather 
than a leading + or - sign, and when 
conversion is completed, control returns 
to e3. The * can be considered a - sign. 
An argument resulting in overflow con- 
verts to * 1.701411 E + 38. An argu- 
ment resulting in underflow converts to 
*0. 000000 E + 00. 

The magnitude of the three smallest nor- 
malized non-zero floating point numbers 
are converted to one of the character 
strings +l i 469367E— 39 or +1.469368E= Q 9 
These two character strings cannot be 
converted back to a floating point number. 
The smallest character string which can 
successfully be converted to a floating 
point number is +1. 469 369 E- 39. Therefore, 
if the user converts any one of these 
three numbers to a string of characters, 
he should be aware that he cannot suc- 
cessfully convert the string back to 
a floating point number. 



306 8 (198 10 ) locations 
Description of Algorithm: 

The sign of the floating point argument is stored, the argument is then 
normalized, and the absolute value is taken and used for conversion. If nor- 
malization caused either exponent overflow or underflow, the error return is 
taken when conversion is completed and an asterisk (which may be considered 
as a '-'), is stored rather than a leading sign. 
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Since the output character string is of the fora\ + >n.nnnnnnE+nn, the 
floating point argument is first manipulated to make it greater than or 
equal to one and less than ten. (If the floating point argument is exactly 
zero, this portion of the algorithm is bypassed.) Making li floating 
point argument < 10 is accomplished by first checking if it is J£ 1. If it 
is not, it is multiplied by the largest possible power of ten (10 3 ^) and, 
if necessary, it is multiplied once again by ten to force it£l. The ar- 
gument is then checked for< 10. If it is not<10, it is forced so by 
dividing by the largest power of ten, which is less than the argument. The 
powers of ten used in multiplying and dividing the argument to force its 
value to be between one and ten are used to form the exponent portion of 
the character string. 

With the floating point argument (stored in FAC) nowj^l and<10, the 
mantissa portion of the character string can be formed. FACHI, FACLO is 
treated as a double precision mixed number with FACXP showing the position 
of the binary point. FACHI, FACLO is left shifted (with overflow bits shifted 
into a 3rd word) until the binary point immediately precedes bit 15 of FACHI. 
The overflow word is then converted to character and stored as the first digit 
of the mantissa, immediately followed by a decimal point. The fraction por- 
tion of the mantissa is formed by successively multiplying FACHI, FACLO by 
10^ and storing the most significant word of the 3 word product. The ex- 
ponent is then converted and stored, preceded by an E and either a + or - sign. 



3.3 Character to Floating Point : 
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NAME: 



@SCF 



SUBROUTINES CALLED: 



ALTERED REGISTERS & FLAGS: 



CALLING SEQUENCE: 



$SFI, @FXC 

FAC, FT.M, FXFLG, FDFLG 

JU @SCF 
WRD el-1 
WRD e2 
WRD e3 
return 



ARGUMENTS : 



n [n...] . [n...] 
[.] n [n...] 



31 is the address of the first character 

acter string should be stored one charac- 
ter per word right justified in the format 



E [+] [ n[n] 

+ 



L 4* • * • J L SS J 



The notational conventions are: 

1. n is a decimal digit 

2. ^ is a space 

3. i is a delimiter 

4. braces [] contain optional items 
which may or may not be included. 

5. brackets ^ J contain alternate items 
where one and only one of the items 
must be included. 

6. ellipses .*. denote permissible 
repetition of the preceding item. 

The string is treated as follows: 

1. If there is no sign, it is treated as +, 
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FUNCTION: 



2. If the leading sign is * or -, it 
is treated as -. 

3. If there is no decimal point, it is 
assumed to follow the last mantissa 
digit. 

4. Characters are processed up to and 
including the first jj , or 13^q char- 
acters have been processed. 

e2 is the address where the two word 
floating point answer is stored. 

e3 is the address of the error return. 

Converts a string of decimal characters 
to a two word normalized floating point 
answer. The two word normalized float- 
ing point answer is returned in registers 
AX (MSH), AY (LSH), and is stored in lo- 
cation e2 (MSH) and e2+l (LSH) . The AO 
is returned in the ADD state. 



ERRORS: 



A scan error occurs if the character 
string is illegally formed. Location 
@SCF+3 is set to zero and control im- 
mediately returns to e3. 

An overflow error occurs if the charac- 
ter string contains more than 10 ^o ma n- 
tissa digits (discounting leading zeros) 
or if the magnitude of the number is out- 
side the range 1. 469 369 E- 39 to 1.70 141 1E+38 
Location @SCF+3 is set to one and control 
immediately returns to e3. 

Whenever control returns to e3, the AO 
is in the ADD state. 
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NOTES: See NOTES under @SFC. 

LENGTH: 406g (262 10 ) locations 

Description of Algorithm 

The mantissa portion of the character string is converted to a 
double precision integer by multiplying the answer by 10 10 and adding 
in the latest digit. This double precision mantissa is then converted 
to a normalized floating point number. A count of the number of digits 
to the right of the decimal point is kept and, after the exponent portion 
of the character string has been converted, this digit count is subtracted 
from it to obtain the final exponent. The magnitude of the final exponent 
is used as an index into the positive floating point powers of ten table 
(see 3.6). The floating point number obtained from the mantissa portion 
of the character string is then multiplied (if the final exponent was 
positive) or divided (if the final exponent was negative) by this power 
of ten to form the final floating point answer. If there was a leading 
minus sign or asterisk, the floating point answer is two's complemented 
before return. 

3.4 Common Tables & Routines ; 

The conversion routines @SFC and @SCF reference a common routine called 
@FXC, which has four entry points. @FXC occupies a total of 213 fi (139 10 ) 
locations. Since @FXC is common to both @SFC and @SCF, it need appear only 
once if the conversion routines are used together. In the discussion of @FXC 
which follows, each of the four entry points is treated separately for the 
sake of clarity. 
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3.5 Character Set Table ; 

NAME: 
FUNCTION: 



NOTES : 



@FCST 

Common external character set table for 
floating point data conversion routines. 
The table is ordered as follows: 



Location 

@FCST 

@FCST+1 

@FCST+2 

@FCST+3 

@FCST+4 

@FCST+5 

@FCST+6 

@FCST+7 

@FCST+10 



Contents 

code for zero 
code for nine 
code for + 
code for - 
code for * 
code for . 
code for E 
code for space 
code for delimiter 



The standard table is in full 8-bit ASCII. 
The delimiter character at @FCST+10g is a 
carriage return and may be changed if 
desired. 

The entire table may be replaced with a 
different character set provided that the 
numeric codes in the new set are sequential 
and the code for zero (0) is less than the 
code for nine. No code may occupy more 
than 15 bits . 



LENGTH: 



12 8 (10io) locations 



3.6 Floating Point Powers of Ten Table ; 
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NAME: 
FUNCTION: 



@FPT: 



@FPT 

Common floating point positive powers of 
IO-^q table for floating point data con- 
version routines. Each floating point 
power occupies two locations in the table. 
The table is organized as follows: 

WRD 45473,46777 constant for 10 38 
WRD 74136,160773 constant for 1Q37 



NOTE: 
LENGTH: 



WRD 



40000,201 



constant for 10^ 



@FPT is located at @FCST+12 8 
116g (78^0) locations 



3.7 Left Shift FAC: 
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NAME: 



@LSHF 



SUBROUTINES CALLED: 



none 



ALTERED REGISTERS & FLAGS 



none 



CALLING SEQUENCE: 



Load AX with the negative shift count 

JU @LSHF 

return 



ARGUMENTS : 



FUNCTION: 



Register AX contains minus the number of 
places to left shift FACHI, FACLO 

Performs double precision left shift of 
FACHI, FACLO. On return, the shifted 
result is in AX (MSH) , AY (LSH) . Any 
carry out of MSH is found in location 
@DIG+1. 



ERRORS: 
NOTES : 
LENGTH: 



none detected 



@LSHF=@FCST + 170 fi 

@DIG+1=@LSHF +14 8 
23« (19iq) locations 



3.8 Multiply FAC by Ten : 
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NAME: 



SUBROUTINES CALLED: 



ALTERED REGISTERS & FLAGS 



@10X 

@LSHF 

FAC 



CALLING SEQUENCE: 



ARGUMENTS : 



JU @10X 
n/a 



FUNCTION: 



Performs unsigned multiplication of 
FACHI, FACLO by 10 1Q . The most sig- 
nificant word of the three word product 
is returned in AY. The second and 
third words of the product are found 
in FACHI, FACLO respectively. 



ERRORS: 



n/a 



NOTES : 
LENGTH : 



@10X=@FCST4130, 



40g (32, q ) locations 
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CHAPTER FOUR 
EXTENDED COMMANDS 

4.1 Introduction ; 

In addition to the basic floating point interpreter, a set of mathematical 
functions is supplied which can be invoked by a command in the same line with 
the basic commands. These functions also call the floating interpreter and 
since the interpreter has already been entered at this point, a push-down 
scheme is supplied to allow recursive calls such as this. The push-down list 
will accomodate recursive calls up to seven levels. 

It should be noted that all pseudo registers - the floating accumulator, 
the temporary accumulator and index - and the flags, FDFLG and FXFLG, are 
common to all levels of the recursion. In other words, if an extended func- 
tion which calls the interpreter recursively is invoked by a command, these 
registers and/ or flags may be altered. Information detailing such factors 
is supplied in the documentation accompanying the individual package. 

The push-down scheme and command code structure is tailored so that the 
user may easily add his own functions. The procedure for doing this is 
described in section 5.3. 

The mathematical subroutines which are supplied with the extended package 
are SINE, COSINE, ARC TANGENT, LOG e , EXPONENTIAL, and SQUARE ROOT. The com- 
mands associated with these are FSIN, FCOS, FATN, FLNE, FEXP, and FSQT (codes 
31, 32, 33, 34, 35, and 36) respectively. They each perform the desired 
function on the contents of the floating pseudo-accumulator and return the 
results in the same register. Errors which can result, such as attempting 
to take the square root or log of a negative number, are flagged by the 



4-2 

FLOATING POINT MANUAL 
74-44-001-C 



routines in internal locations not accessible in interpretive mode, i.e. 
cannot be tested with an interpreter command. An error trap routine is 
available which will handle these and other errors when they occur (see 
Appendix E) . 

In the writeups that follow, FAC is the floating pseudo-accumulator, 
ETM is the temporary floating pseudo-accumulator, FDFLG is the divide check 
flag, FXFLG is the exponent overflow flag, and FINDX is the pseudo-index. 



4.2 Sine, Cosine: 
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COMMAND: 



FSIN (code 31), FCOS (code 32) 



FUNCTION: 



ERRORS : 



a. FSIN - calculates the SINE of the 
contents of FAC which is assumed to be 
a radian argument and replaces FAC 
with the result. 

b. FCOS - calculates the COSINE of 
the contents of FAC which is assumed to 
be a radian argument and replaces FAC 
with the result. 

none 



ALTERED REGISTERS & FLAGS 



METHOD: 



FAC, FTM, FXFLG 

For FCOS, the absolute value of FAC is 
subtracted from TT/2 (=1.570796) and the 
SINE of the result is taken. 

T?m- 'P.QT'Nr fV, Q „,.„.,„„,„,+. /"t?a/->\ ,• _ cj *. 

" »"■*- ■»■»'-.« j wic utgumcuL \i:n.\j/ jus iilbt 

multiplied by 2/TT to convert it into 
units of a quarter circle, and the result 
is checked for its absolute magnitude 
being less than one. If so, it is a 
first quadrant quantity and the procedure 
continues with the series calculation 
described later. If the magnitude of the 
result is greater than or equal to one, 
its sign is saved, it is forced positive, 
and the integer portion is chifted out - 
leaving a positive fraction (referred to 
as Y in the following) . The last two 
bits of the integer portion and the sign 
are used to determine which quadrant the 

original argument was in and the quantity 
Y is altered as follows: 
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sign 


last two bits 


Y 


quadrant 


+ 


00 


Y->Y 


I 


+ 


01 


1-Y-^Y 


II 


+ 


10 


-Y->Y 


III 


+ 


11 


v -1 + Y->Y 


IV 


- 


00 


-Y->Y 


IV 


- 


01 


-1 + Y-^Y 


III 


- 


10 


Y->Y 


II 


- 


11 


1-Y->Y 


I 



This new value of Y is then treated as a fraction and is normalized. 

The series used to calculate the sine is basically a 5 term Chebyshev 
economized polynomial approximation of a 6 term McLaurin series for sin (27. 
The coefficients are further "adapted" to allow the series to be calculated 
with one less multiplication than would be the case for a standard polynomial 
evaluation procedure. This results in the sine being calculated as follows: 

sin g£) = ((Z - Y + A 2 ) * Z + A 3 ) * A 4 * Y 

where 

Z = (Y + Aq) * Y + A ± 
and 

Aq = -14.93104811 

A ± = -39.74079011 

A 2 = +367.8139482 

A 3 = +23410.00773 

A 4 = +0.0001514440767 

Accuracy is 6 + significant decimal digits for arguments in the first 
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quadrant ( [FAC|<y). Accuracy loss is about two thirds of a decimal 

digit for each complete rotation, i.e. if 2TTn< |FAC j <2Tf (n+1) , the ac- 

2 

curacy is about 6 - -rn decimal digits . 
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4.3 Arc Tangent ; 



COMMAND: 



FATN (code 33) 



FUNCTION: 



ERRORS: 

ALTERED REGISTERS & FLAGS: 



The arc tangent of the contents of FAC 
replace FAC. The result is in radians 
and lies in the range ( -j, + j) . 



none 



FAC, FTM, FDFLG, FXFLG 



METHOD: 



The argument (FAC) is checked for its 
absolute magnitude being greater than or 
equal to one. If so, a flag is set and 
the reciprocal of the argument is taken 
and replaces FAC. 

The arc tangent of the quantity in FAC 
is then approximated by 

(An +A 1 X^fA ? X^) 
Z « ATAN X = X • (BQ+BlX^+Bp 7 *) 

where X is the argument and 

Aq » 0.6402481953 

A ± - 0.4229908144 

A 2 - 0.0264694361 

Bq - 0.6402487022 

B-l = 0.6363779373 

B 2 - 0.1108328778 

If the flag was set by the initial check, 
the value Z is checked for + or -. If Z 
is +,(¥" ZJ replaces Z. If Z is -, 
[- *£ + z ) replaces Z. (This is effected 
by subtracting Z from + or - •£ depending 
on the sign of Z.) 

If the flag was not set by the initial 
check, the value Z is not altered. Accur- 
acy is 6+ significant decimal digits for all 
arguments . 



4.4 Natural Log : 
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COMMAND: 
FUNCTION: 

ERRORS : 



ALTERED REGISTERS & FLAGS: 



FLNE (code 34) 

The natural log of the contents of FAC 
replace FAC. 

If FAC is negative, a flag (FNLNF) is set, 
FAC is forced positive, and the natural 
log taken . 

FAC, FTM, FXFLG, FNLNF (FPLNE-+4) 



METHOD: 



The quantity in FAC is 

Z = X • 2 1 where .5£x<l and I is an 
integer. 

In Z = In [X ' 2 1 ] 
= In X + I ln2 



The quantity In X is approximated by the 
polynomial . 

in X = In A - Z (Y + Y 3 /3 + Y^/5 + Y 7 /7) 
which is a Taylor series evaluated at A 
where A = i"r— 



and Y = 



2 

A - X 
A + X 



The product [I In 2] is added to In X, and 
the sum is left in FAC. 

A = 0.70710678 
In A = 0.34657359 
In 2 = 0.69314718 

Accuracy is 6+ significant decimal digits 
except for .904.£z£ 1.110 . In the latter 
range, accuracy decreases as Z-^l. 



4.5 Exponential : 
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COMMAND: 
FUNCTION: 

ERRORS : 



ALTERED REGISTERS & FLAGS 



METHOD: 



FEXP (code 35) 

The exponential of the contents of FAC 
replace FAC. (FAC = e FAC ) 

If the result is going to be out of 
range, i.e. if FAC 88.722, a flag 
(FEXOF) is set. If FAC was negative, 
zero is left in FAC. If it was positive, 
the largest positive number is left. 

FAC, FTM, FDFLG, FXFLG, FEXOF (=FPEXP+1) 

e X = 2 X lo S2 e 

I + F I F 
= 2-2.2* 

where I is the integer portion 

and F is the fractional portion of X log 2 e 

9 F is computed by the continued 



fraction: 

A 

B + F + C 



-1 



F + D 
F 



where 

A = -34.624680982 
B = -17.312340491 
C = 104.0684491 
D = 20.813689813 
log 2 e = 1.442695041 



Accuracy is 6+ significant decimal digits 
for |x|Sl0. 'Accuracy decreases slowly as 
X| becomes large until at X(«88, the ac- 
curacy is 5+ significant decimal digits. 
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4.6 Square Root ; 
COMMAND: 
FUNCTION: 
ERRORS : 



ALTERED REGISTERS & FLAGS; 



METHOD: 



FSQT (code 36) 

The square root of |fAc| replaces FAC. 

If FAC is negative, it is forced posi- 
tive, and FSFLG (internal to the square 
root routine) is set non-zero. If FAC 
is positive, FSFLG is set to zero. 

FAC, FSFLG (=FPSQT + 6) 

After FAC is forced positive and FSFLG 
is determined, the exponent of the re- 
sult is determined by dividing FACXP 
by two (by shifting right once) and 
adding 100 g to preserve the excess 200 g 
notation. If the original exponent was 
odd, the shifted FACXP is increased by 
one; otherwise, it is left alone. If 
the original exponent was even, FACHI 
and FACLO are shifted left once. Since 
the algorithm treats FACHI and FACLO as 
a 32 bit positive fraction with the 
binary point to the left of bit 15 of 
FACHI, the fact that the left shift will 
set the sign bit (bit 15) of FACHI does 
not matter. 

The algorithm then proceeds to determine 
a fourteen bit first approximation to 
the square root by a method based ^on the 
fact that N 2 is the sum of the first N 
odd numbers. This method also leaves as 
a "remainder" the difference between the 
square of the approximation and the original 
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number. This remainder and the initial 
approximation are then used for one 
Newton-Raphson iteration which completes 
the square root using the single pre- 
cision divide entry (FSDVD) of the 
floating point package. 

Accuracy is 6+ significant decimal 
digits for all input arguments . 
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CHAPTER FIVE 
NON- INTERPRETIVE MODE USAGE 

5.1 Introduction : 

Certain sections of the floating point interpreter are directly 
accessible to the user without the need to sup r> l v commands . These sec- 
tions may be invoked by a JU SUBR instruction and, after the operation 
is completed, will return control to the instruction following the jump. 
In order to use these routines successfully, it is necessary to know that 
in addition to the pseudo-accumulator (FACHI, FACLO, and FACXP) there is 
a "temporary" accumulator (FTMHI, FTMLO, and FTMXP) which is used to 
contain the floating argument of a Type II command during the execution 
of the operation (see 1.4). This temporary pseudo-accumulator, referred 
to as FTM, is loaded in the same manner as FAC (see FLDA instruction in 
2.2.1). If the user desires to access the routines described in this sec- 
tion, he may need to load FTM in addition to FAC for those routines that 
operate on both accumulators . 

These sections will be described as subroutines since they are essen- 
tially used in this manner when accessed directly. When the floating in- 
terpreter resides in memory, all of these subroutines also lie in memory. 
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NAME: 

CALLING SEQUENCE; 

INPUT: 

FUNCTION: 



NOTES ; 



FDAD 

JU FDAD 

FACHI, FACLO; FTMHI, FTMLO; AO must be in 
ADD state. 

FACHI, FACLO and FTMHI, FTMLO are treated 
as signed double precision numbers and 
added. The result of the addition ap- 
pears in FACHI, FACLO. FTMHI, FTMLO are 
left unchanged. 

If arithmetic overflow occurred (two 
numbers of like sign are added and the 
result has opposite sign), the link 
will be set to 1. If no arithmetic 
overflow occurred, the link will be 
zero. 

The AO is in the ADD state upon return. 

It is possible to generate the maximum 
negative number (FACHI = IOOOOO3, FACLO = 
OOOOOOg) , which is not considered a case 
of arithmetic overflow; and so the link 
will not be set. 
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5.2.2 Double Precision Fixed Point Multiply 



NAME: 

CALLING SEQUENCE: 

INPUT: 



FUNCTION: 



NOTES : 



FDMPY 

JU FDMPY 

FACHI, FACLO; FTMHI, FTMLO 
AX must be set to the value in FTMHI 
AY must be set to the value in FTMLO 
The AO must be in the ADD state 

FACHI, FACLO and FTMHI, FTMLO are 
treated as signed double precision 
numbers and are multiplied. The high- 
order 30 bits of the 62 bit product 
are returned, right justified, in 
FACHI, FACLO. The value in FTMHI, 
FTMLO is unchanged. 

The AO is in the ADD state upon return. 

The 30 bit product is inaccurate in the 
right-most two bits. If FACHI, FACLO 
and FTMHI, FTMLO are each considered as 
a double precision fraction with its 
binary point immediately to the right 
of the sign, i.e. between bits 14 and 
15 of the high^order word, the binary 
point of the product will be shifted 
right once so that it is between bits 
13 and 14 of FACHI. 
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NAME: 



FDDIV 



CALLING SEQUENCE: 



INPUT: 



FUNCTION: 



NOTES : 



JU FDDIV 

FACHI, FACLO; FTMHI, FTMLO 

AX must be set to the value in FTMHI 
AY must be set to the value in FTMLO 
The AO must be in the ADD state 

FACHI, FACLO and FTMHI, FTMLO are 
treated as signed double precision 
numbers, and the former is divided 
by the latter. The quotient appears 
in FACHI, FACLO. The value in FTMHI, 
FTMLO has been destroyed. 

The quotient will be 30 bits in FACHI, 
FACLO with the binary point displayed 
one position to the right in the same 
way as explained in the note for FDMPY. 

The absolute magnitude of FTMHI, FTMLO 
must have bit 14 of FTMHI set for the 
divide to take place. If this con- 
dition is not satisfied, divide check 
will occur. 

The AO is in the ADD state upon return. 

The rightmost three bits of the quotient 
are inaccurate. Divide check causes 
FACHI, FACLO to be set to a large double 
precision number of the sign which would 
result if the divide could take place 
(FACHI, FACLO = 077777, 177400 or .100000, 
000400 for + and - respectively); also, 
FDFLG is set non-zero. A successful 
divide sets FDFLG to zero. 
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5.2.4 Single Precision Divide 



NAME: 

CALLING SEQUENCE: 

INPUT: 



FUNCTION: 



FSDVD 

JU FSDVD 



AX = high order dividend J must be a posi- 



,;« 



FLODV - low order dividend/ tive ^ bit 

* double preci- 
sion number (see 
below) 
AY = negative divisor 

The AO must be in the ADD state. 

This is an inner loop which, if used 
correctly, can be invoked to supply an 



unsxgneu single precision divide. 



ine 





JU 


FSDVD 




RRC 


AO,L1,0 


This code may be 


r SFM 


NOT LNK 


eliminated if the 
remainder is to be 


/ RR 


AO,AX 


disregarded. 


V. NOP 






RR 


TRP,Ll,i 



quotient is incomplete in the sense that 
it is right shifted and truncated upon 
return . 

To obtain a complete single precision 
unsigned divide, the following procedure 
may be used. First, load AX and the lo- 
cation FLODV with a valid two word posi- 
tive product (bits 14 and 15 of AX must 
be zero). Then load AY with the positive 
single precision divisor and twos comple- 
ment it. The following code will then 
perform the divide: 

INCOMPLETE QUOTIENT IN TRP 

;GET LAST BIT OF QUOTIENT 

; UPDATE 

REMAINDER 

;IN AX 

;TRUE QUOTIENT IN AY 



NOTES : 
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Note that the incomplete quotient is in 
the TRP register on return from FSDVD. 
The AO is in the ADD state upon return. 

If either the link is set or AY (the 
final quotient) is negative following 
this code, divide check has occurred. 
This means that the high-order portion 
of twice the dividend was greater than 
or equal to the divisor, and the quotient 
is incorrect. 

No flag is set if divide check occurs. 
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5.2.5 Floating Point Normalize 

NAME: 

CALLING SEQUENCE: 

INPUT: 

FUNCTION: 



1) 



FNORM 

JU FNORM 

FACHI, FACLO, FACXP 

Same as FNOR command (see 2.2.3), in- 
cluding the setting of FAC and FXFLG 
should exponent overflow or underflow 
occur. 

The advantage of the accessibility of 
this routine lies mainly in the saving 
of time. For instance, to convert a 
single precision integer value to 
floating point, the following two 
methods could be used. (Assume the 
integer is in AX, and the floating 
equivalent is wanted in location X.) 



RM 


AX, FACHI 


ZM 


FACLO 


MRI 


217, AX 


RM 


AX, FACXP 


JU 


FNORM 


JU 


$SFI 


FSTA 


X 


FEXT 





or, 
2) 



RM 


AX, FACHI 


ZM 


FACLO 


MRI 


217, AX 


RM 


AX, FACXP 


JU 


$SFI 


FNOR 




FSTA 


X 


T?P.YT 





NOTE: 
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Version 1) takes one more location in 
core and saves about 80 machine cycles. 

The AO may not be in the ADD state upon 
return. 
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5.2.6 Negation and Store 

NAME: 

CALLING SEQUENCE: 

INPUT: 

FUNCTION: 



NAME: 

CALLING SEQUENCE; 

INPUT: 

FUNCTION: 



NAME: 

CALLING SEQUENCE: 

INPUT: 

FUNCTION: 

NAME: 

CALLING SEQUENCE; 

INPUT: 

FUNCTION: 



FACMP, FACMA 

JU FACMP or JU FACMA 

FACHI, FACLO or AX, AY 

a) FAGMP - replaces FACHI, FACLO with 
its two's complement. Result is 
also returned in AX, AY. 

b) FACMA - replaces FACHI, FACLO with 
the two's complement of the double 
precision number in AX, AY. Result 
is also returned in AX, AY. 

FTCMP, FTCMA 

JU FTCMP or JU FTCMA 

FTMHI, FTMLO or AX, AY 

a) FTCMP - replaces FTMHI, FTMLO with 
its two's complement. Result is 
also returned in AX, AY. 

b) FTCMA - replaces FTMHI, FTMLO with 
the two's complement of the double 
precision number in AX, AY. Result 
is also returned in AX, AY. 

FASAX 

JU FASAX 

AX, AY 

Stores AX into FACHI and AY into FACLO 

FTSAX 

JU FTSAX 

AX,AY 

Stores AX into FTMHI and AY into FTMLO 
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5.2.7 Generate Zero or Largest Number 

NAME: FOFAC 

CALLING SEQUENCE: JU FOFAC 

INPUT : none 
FUNCTION: 

NAME: 

CALLING SEQUENCE: 

INPUT: 

FUNCTION: 



sets FACHI, FACLO and FACXP to zero 

also returns AX and AY = 

FCMAX 

JU FCMAX 

FACHI 

FACHI, FACLO, FACXP will be set to the 
maximum possible floating point number 
of the original sign of FACHI. 

1) If FACHKO, this routine sets 

FACHI = 100000 
FACLO = 000400 
FACXP = 000377 

2) If FACHI >0, this routine sets 

FACHI = 077777 
FACLO = 177400 
FACXP = 000377 

Upon return, AX and AY will be equal to 
the value stored in FACHI and FACLO re- 
spectively. 
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5.2.8 Floating Arithmetic Right Shift 

NAME: FARSN 

CALLING SEQUENCE: JU FARSN 

INPUT: AX, AY, FARSC 

FUNCTION: > This routine arithmetically right shifts 

the double precision number in AX, AY 
by the number of places indicated by 
-FARSC . 

NOTES: FARSC must be set to a negative count 

before calling FARSN. 
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5.2.9 Other Notes on Non- Interpretive Usage 

1) The pseudo-index is kept in location FINDX and may be set by the 
user without using an FLDX command (see 2.2.4) by simply storing 
the desired value via a RM R, FINDX where R is a register con- 
taining the index value. This, as with FNORM, is a time saver. 

2) The two flags, FXFLG and FDFLG, are in locations defined by their 
names, and can be checked (or cleared) in non-interpretive mode 
to save time. 

3) The usage of the locations FTBLE, FARGD, FETCH, and FMASK which 
are entry points to $SFI is described in 5.3. 

5.3 User Generated Extended Functions : 

If the user desires to add functions of his own to the extended package, 
the procedure is quite easy as outlined below. 

The extended package as delivered uses command codes 00-36 o inclusive 
and 101g through 110 g inclusive. There are available codes of 37 8 -77 8 inclu- 
sive which the user may assign to his own functions. 

User functions may be of two types - invoked by one word commands or 
invoked by two word commands where the second word is an argument address 
or value. If deferred mode addressing is desired as an option for the same 
function, it must be accomplished by user code. Setting bit 6 of the command 
code to attempt deferred addressing will cause the floating interpreter to 
take the error halt. 

Suppose the command name used to invoke the function is to be FFCN 
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assigned to code 37q« Assume further that the entry point to the function 
is to be FPCN. 

Step 1) Using the Source Text Editor, substitute the statement WRD FPCN 
to the Command Table ($SFIC Source - see operating instructions) 
for the statement WRD FPUNT ;37 which is on the supplied tape. 

Step 2) The user code which accomplishes the function must have the 
following statement at the beginning: 

ENTRY FPCN 
where FPCN is the location at which the user function 
begins execution. 

Step 3) The last instruction executed by the user function must re- 
turn control to FGET, usually via a JU FGET. Remember that 
when the user function is invoked by a command, the interpreter 
passes control to the user function. The JU FGET returns control 
to the interpreter. 

Step 4) If the function the user is generating needs the floating point 
capability supplied by the interpreter, the user function may 
call the interpreter followed by a list of commands to accomplish 
the task subject to the following restrictions: 

a) The command name corresponding to the function it- 
self ( in this case, FFCN) may not be used. 

b) Commands which cause the interpreter to be called re- 
cursively may be used so long as care is taken not to 
exceed seven levels of recursion in total (see 4.1) 
(remember that the function being coded is at least 
at level 1 during its execution, and if it calls the 
interpreter, all commands in the list are at least at 
level 2). 

c) No function invoked by a command may have in its code 
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a call to the interpreter whose command string con- 
tains the command name corresponding to the function 
itself. This is an indirect violation of restriction 
a) above. 

Step 5) Assemble the function and the new Command Table and load these 
objects along with the rest of the system. 

Notes : If the function being generated is invoked by a two word com- 
mand whose second word is an argument, one and only one of the follow- 
ing steps must occur during its execution. 

a) JU FARGD 

This fetches the contents of the location following the command into 
register AX. 

b) JU FETCH 

This calls FARGD and uses the contents of the location following the 
command as an address to fetch a floating point argument which is 
placed in FTM. Also, AX and AY will be set to the value in FTMHI 
and FTMLO respectively upon return. 

c) ZK FMASK 
JU FETCH 

This causes deferred fetching of a floating point argument. The con- 
tents of the location following the command is used as an address of 
another location which is incremented twice to form the addresses of 
the floating argument which is loaded into FTM and AX, AY as in b) . 

Examples : 

1) FCSX is to be the command name, 1 word, code 37 g . when in- 
voked it is to take the COSINE of the SINE of the value in FAC. Assume 
Step 1 has been accomplished by adding the statement WRD FCS to a Command 
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Table tape which already includes the SIN and COS INg" routines. This 
function may be accomplished by the following code: 

ENTRY FCS 

FSIN = 31 

FCOS = 32 

FEXT = 
FCS: JU $SFI 

FSIN 

FCOS 

FEXT 

JU FGET 



; enter floating interpreter 

j sin of FAC 

;cos of FAC 

jexit interpreter 

; return to interpreter 



END 
When this and the new Command Table are assembled and loaded with 
$SFI and the SINE, COSINE routine, the user may now call the routine 
in the floating interpretive mode as follows : 

FCSX = 37 



JU $SFI 



FCSX 



FEXT 



2) FMCS is to be the command name, 2 words, assigned to code 40 Q . 

8 

When invoked, it is to take the SIN of the COSINE of the value in FAC 
and set the sign of the result to the sign of the floating point argument 
whose address is the second word of the command. Step 1 requires the 
new command entry (say FMC) to be added to a Command Table tape which 
includes the SIN and COSINE. This function could be coded as follows : 
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ENTRY FMC 
FCOS = 32 
FSIN = 31 
FABS = 14 
FEXT = 
FMC: JU FETCH 

RMI AX, 

JU $SFI 

FCOS 

FSIN 

FABS 

FEXT 

MR FMC + 3, AX 

JC AX, GEZ, FGET 

JU FACMP 

JU FGET 



; fetch arg to AX, AY 

;save MSH arg (sign of arg) 

; enter floating interpreter 

;cos of FAC 

;sin FAC 

;abs value of FAC 

;exit floating interpreter 

;get sign of arg 

;plus, exit 

; minus , comp FAC 

; return to interpreter 



END 
When this and the new Command Table are loaded with $SFI, and 
the SINE, COSINE routine, it may be invoked by another routine via 



FMCS = 40 



JU $SFI 



FMCS 



X 



FEXT 
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3) FMCSD is to be the command which does the same thing as 
FMCS , only using deferred mode addressing for the argument. FMCSD must 
be assigned a different code - say 41 R in the routine that invokes it. 
Both FMCSD and FMCS may be coded in the same routine as follows, assuming 
their corresponding entry names have been added to the Command Table Tape. 

ENTRY FMCD,FMC 
FCOS = 32 
FSIN = 31 
FABS =14 
FEXT = 

FMCD: ZM FMASK 
FMC: JU FETCH 

RMI AX, 

JU $SFI 

FCOS 

FSIN 

FABS 

FEXT 

MR FMC + 3, AX 

J C AX , GEZ , FGET 

JU FACMP 

JU FGET 

END 
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CHAPTER 6 
OPERATING INSTRUCTIONS AND SYSTEM GENERATION 

6.1 Using the Package as Supplied ; 

An equate tape labeled $FCQ is supplied for the package as delivered. 
This tape is a source tape containing the equates for all the floating 
point commands. It is intended to be copied via the Source Text Editor (%STE) 
onto any user written source tape which uses the floating point system in 
order to define the commands. For convenience, the user may preceed 
these definitions with an 'NLIST' statement and follow them with an 'LIST' 
statement to avoid having the lengthy listing of these equates. Of course, 
commands which are not used in the particular program may be edited out 
of the source as well to shorten assembly time, A commented listing of 
this tape is in Appendix B. The supplied tape is not commented. 

Also supplied is a source tape labeled $SFIC which consists of a 
table of addresses of entry points in $SFI corresponding to each 
-"--"-*"-•«-" -"■& f"-^"«- uv/unuauu. J.H.C ycn_j^a.gc: as uciJLveieu acts two oDject versions 
of this tape — one with the basic commands only (labeled also $SFIC) and 
one with the basic commands and all of the extended functions as well 
(labeled $SFEC-ext ended) . A listing of the basic $SFIC tape is 
in Appendix C. 

The basic steps for using $SFI as supplied are as follows: 

1. Using %STE, construct a source tape consisting of the user 

program and command definitions (which can be read in from $FCQ) . 
Note that the definitions must come somewhere after any ENTRY 
statements in the user program. 
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2. Assemble the user program using %RAS 

3. Load the user program, the version of $SFIC desired, then the 
other components of the floating point system which may be done 
via a library load using %LLH or via the individual objects 
using either %RLH or %LLH. 

4. Run it! 
NOTES : 

1. Whenever any component of the floating point system is to be 
used, some version of $SFIC must be loaded. 

2. It is good practice to initialize $SFI when starting up or 
restarting a program by storing FLIST-1 into FPUSH via, e.g. 

MRI FLIST-1, AX 

RM AX, FPUSH 
This resets the push-down list which may have been left 
"hanging" by stopping the program in the middle of a floating 
point operation. 

6.2 User Generated Systems 

If the user desires a configuration of the floating point system 
other than that supplied he must edit and assemble the $SFIC tape supplied 
with the package (see also Chapter 5) . 

Every command used in an interpretive string following a JU $SFI 
must have a corresponding entry in the Command Table ($SFIC) loaded with 
$SFI. This entry defines the address to which the interpreter is to 
pass control in order to perform the command. It may be an address within 
$SFI, or in one of the extended functions, or in a user written extended 
function. All unused commands go to the entry point in $SFI labeled 
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'FPUNT 1 . The source tape for $SFIC supplies the appropriate labels for 

■f-L 

all the basic commands at the proper place in the table (code n is the n 
entry - see listing in Appendix C) . 

The user need only change the 'FPUNT' at the appropriate entry in 
$SFIC to the desired name (which must be an entry point in some 
program) , reassemble the tape and load the resulting object along with 
the rest of the system. 
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7-1 

Model 40 Floating Point 

Conversion of 71-44-001-C (Model 30 Manual) 

This package is upward compatible with floating point software 
written using the Model 30 floating point package. The only differ- 
ences are 1) the Model 40 floating point is faster and uses less 
space, 2) FAC, and FTM occupy registers 30-35 and 3) the usage of 
some of the subroutines in non- interpretive mode is slightly different, 

Any changes in going from Model 30 to Model 40 floating point 
are described in this document by referring to changes that should 
go into the Floating Point Manual if the Model 40 version is being 
used. 

Pg. 1-7 last 6 lines, change to: 

registers in the interpreter and is used to contain the left-hand 
argument of a binary floating point command as well as the results 
of any floating point command. It is organized as follows: 

contains high order mantissa and sign of 

value in FAC 

contains low order mantissa of value in FAC 

contains excess 200g exponent of value in FAC 

Pg. 1-8 first three sentences, change to: 

ii) FTM - temporary pseudo- accumulator. This consists of three 
registers analogous to FAC. They are named FTMHI (reg. 32), 
FTMLO (reg. 31), and FTMXP (reg. 30). 



re 8- 


name 


35 


FACHI 


34 


FACLO 


33 


FACXP 
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Pg. 3-2 second line from top, change to: 



NAME: 



@SFC4 



Pg. 3-3 seventh line from bottom, change to: 

LENGTH: 263 8 (179 10 ) 

Pg. 3-5 second line from top, change to: 



NAME: 



@SCF4 



Pg. 3-7 second line from top, change to: 



LENGTH: 



367 8 (247 10 ) 



Pg. 3-7 last paragraph, change all references to @SFC to @SFC4, @SCF to 
@SCF4 and @FXC to @FXC4. 

Pg. 3-7 first line, change reference to @SFC to @SFC4. 

Pg. 3-7 fifth line from bottom, @FXC4 occupies a total of 175o(125 10 ) 
locations. 

Pg. 3-10, change page to read: 

3.7 Left Shift FAC: 



NAME: 

SUBROUTINES CALLED: 
ALTERED REGISTERS & FLAGS: 
CALLING SEQUENCE: 



@LSHF 

none 

FTMLO,FTMXP 

Load FTMXP with negative shift count 

JU @LSHF 

return 
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ARGUMENTS ; 



FUNCTION: 



ERRORS : 



FTMXP (reg. 30) contains minus the 

number of places to left shift FACHI,FACLO 

(regs. 35 and 34) . 

Performs double precision left shift 
of FACHI,FACLO. On return, the shifted 
result is in AX(MSH) ,AY(LSH) . Any 
carry out of MSH is found in FTMLO. 

None detected 



@LSHF = @FCST+161 



8 



NOTES : 

LENGTH: 14 g (12 10 ) locations 

Pg. 3-11 fourth line from top, change to: 



ALTERED REGISTERS & FLAGS: 



Pg. 3-11 last line, change to: 



FAC.FTM 



LENGTH: 



31 fi (25 in ) 



L 8 V ^10 

Pg. 5-3 delete 5th and 6th lines from top (i.e. AX and AY do not need 
to be set to FTMHI, FTMLO) . 

Pg.' 5-4 same as Pg. 5-3 

Pg. 5-5 delete this page entirely, single-prrecision divide is supplied 
on the extended arithmetic operator (see EIR Devices Manual) . 

Pg. 5-6 same as Pg. 5-5 
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Pg. 5-7 change line 17 through last line to; 
1) 



RR 


AX,FACH1 


ZR 


FACLO 


MRI 


217,FACXP 


JU 


FNORM 


JU 


$SFI 


FSTA 


X 


FEXT 





or, 

2) RR AX,FACHI 

ZR FACLO 

MRI 217,FACXP 

JU $SFI 

FNOR 

FSTA X 

FEXT 
Pg. 5-8, change "80 machine cycles" to "27 machine cycles". 

Pg. 5-9 delete all references to "Result is also returned in AX, AY" 

Pg. 5-9 delete last eight lines, i.e. FASAX and FTSAX do not exist. 

Pg. 5^10 fourth line from top, change to: 

sets FACHI, FACLO, FACXP to zero. No other registers are affected. 

Pg. 5-10 delete last three lines, i.e. AX, AY are not affected. 

Pg. 5-11 delete this page, arithmetic right shift is supplied on the 
extended arithmetic operator (see EIR Devices Manual). 

Pg. 5-14 last sentence of paragraph b) , change to: 
AX and AY are destroyed. 



Floating Point Manual 
7 _ 5 74-44-001-C 



Pg. 5-14 last line of paragraph c) , change to: 

the floating point argument which is loaded into FTM as in b) . 

Pg. 5-16 after line saying FEXT = 0, insert: 

FTMBI = 32 
Pg. 5-16 change line beginning with RMI AX,0 to say: 

RMI FTMBI, CI ;save MSH arg (sign of arg) 
Pg. 5-17 same changes as on pg. 5-16 

Appendix B - replace with attached Appendix B 
Appendix F pg. 3 paragraph 1) b) c) and d) , change to 

b) FSPLT is initialized to 06 0010 12 

c) FSPLT+1 is initialized to 377 

d) FPSTA+3 is initialized to FARGD 



REPLACES APPENDEX B 
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APPENDIX B (MODEL 40) 



*001 


002 


003 


04 


005 


006 


007 


;006 


09 


.1010 


011 


012 


013 


014 


015 


016 


017 


018 


01? 


e20 


021 


022 


023 


024 


025 


026 


27 


028 


029 


30 


031 


032 


033 


034 


035 


036 


037 


N0 38 


039 


040 


41 


042 


043 


044 


045 


e46 


047 


048 



;SFC04 - COMMENTED 

;74-43-7 02L 

;CR I 9 09/4 C OHM A NO 



. 


"... 000030 


_F.TMXP=3 





• e0003i 


FTML0=31 





' 00 03 2 


FTMhI=32 





* 0B0C33 


FACXP=33 


.. 


* 000 34 


FACL0=34 





' 000035 


FAChI=35 


0_ 


' 000 00 


FCX7 = pL 





00 001. 


FLDA=! 


... 


...:. 000101* 


FLDAD=101 





' 000002 


FSTA = 2 


0... 


...: ^^^22_ 


FSTAD=102 





' 000003 


FA0D=3 





-00010 3, 


FADDD = 10 3 .._ 





• 000004 


FSUB = 4 





' 000104 


FSUEO=104 





: 000005 


FMP1=5 


0. 


• .00010 5 


FMPYO=105 





" 000 00 6 


FDIV=6 


. 


000106 


..FP.IVO = 10 6_.„.. 





080007 


FAD!* = 7 





' 00010 7 


FADFD=107 





00001 


FSBf. = 10 





00011 


FS9tfD=il 





000011 


FTRN = U 





000012 


FTRF=12 





20 013 


FSE7=13 


2 


^ 0001 4 


FAB 5 = 14 





00 015 


FASC=15 


P 


■.0 00 01.6 


FN0R=16 





000017 


FNEG=17 


.?... 


' P00020 


FJMP=20 





' 000021 


F JAP =21 





Z&2222 


FJA2 = 22 





• 000023 


FJAh=23 


e 


■ 000 02 4 


FJEV = ?4 


c 


: 00 025 


FJDC=25 


0. 


• 000026 


FJI>=26 





r 000 02 7" 


FLD>=27 





• 000 03 


FST>=30 


c" 


"' 00 31 


FSIN=3l~ ". 





• 000032 


FC0S=32 


G 


■""'000033 


FA TK = 3 3 





' 000 34 


FLNE=34 


0"" 


"0 ; 8 035 


FEXF = 35" 





* 0000 36 


FSQT=36 



EQUATE TA 
; FTM 
; LOW 
; hig 

; FAC 

; low 

; hig 

; EXI 

J LOA 

; LOA 
;. STO 

* ..S.TQ 

; FLO 
J. PLO 

; FLO 

; FLO 

; FLO 

; FLO 

; FLO 

' F *-0 

FLO 
FLT 

FLO 
FLT 

TRA 
TRA 
SET 

ABS 
SOU 
NOR 
NEG 
UNC. 
JUM 
JUM 
JUM 
JUM 
JUM 
BUM 
LOA 
STO 
SIN 
COS 
ARC 
NAT 
EXP 
SOU 



PP. 
EXP 

ORD 
H OR 
EXP 
ORD 
H OR 
T CO 
FA 

n fa 

RE F 
RE F 
A TIN 
AT IN 
A TIN 
A TIN 
ATIN 
ATIN 
AT IN 
ATIN 
ATIN 
NG A 
ATIN 
NG S 
CE 
^E 
ERR 
OLUT 
ARE 
MALI 
ATE 

ONDI: 

P IF 



ONEN 
ER F 
DER 
ON EN 
ER F 
DER 
MM AN 
C CO 
C DE 
AC 

AC D 
G AC 



AD 

SV 

SI' 

MU 

MU 

01 

DI 

»» AD 

OD M 

G. SU 

.UE M 

N 

FF 
OF. 
E 



T 
MA 



T 

TM 
FTM 
T 

AC 

FAC 

D 

MNAND 

FERRED 

EF ERRED 



D DEFERRED 

BTRACT 

Bo DEFER REP 

LTIPLY 

LTo OEFERRF r 

VIDE 

VIDE DEFERRED 

D MAGNITUDE ' 

AC- DEFERRED 

Br M'AGNI TUDE 

AG DEFERRED 



RAP 
GNU UCE 



ZE 



IF 
IF 

IF 
IF 
IN 
PS 
p 



P 
P 

P 
p 

P 


RE 

E 

INF. 

TANG 

L'RAL 

N E N 

ARE 



J UN P 
OR = 



TIONAL 
FA^ > 

FAC - 
FAC < 
FXFLO NOT 
FDF LG MOT 
DEXs JMP IF 
E too -INC E * 
SEUC 0--INDE X 



N T. 



ENT 

I QGARI 
TIAL 
ROOT 



h \< 
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APPENDIX A 



Command Summary ^ Basic 



Definitions ; 



Y /v address of floating operand 

r>s address of location containing address - 1 of floating operand 

<^f address of another floating command 

r\s address of index value 

[D]xvoptional selection of deferred addressing 

I 'vindex value of source or destination at address Y 

A ^pseudo-accumulator (FAC) 

X *v pseudo - index register 

F rv floating value of source or destination at effective address formed 
from Y. 



Code (octal) 


Basic C 


]omm; 


ands 


Operation 


Flags 


Registers 


00 


FEXT 




exit 






none 


none 


01 [101] 


FLDA 


[Dl 


Y 


F->A 






none 


FAC,FTM 


02 [102] 


FSTA 


[D] 


Y 


A— >F 






FXFLG 


FAC 


03 [103] 


FADD 


[D] 


Y 


A+F->A 






FXFLG 


FAC,FTM 


04 [104] 


FSUB 


[D] 


Y 


A-F-^A 






FXFLG 


FAC,FTM 


05 [105] 


FMPY 


[D] 


Y 


A*F-9>A 






FXFLG 


FAC,FTM 


06 [106] 


FDIV 


[D] 


Y 


A/F-^A 






FXFLG, FDFLG 


FAC,FTM 


07 [107] 


FADM 


[D] 


Y 


a+|f|->a 






FXFLG 


FAC,FTM 


10 [110] 


FSBM 


[D] 


Y 


a-|f|->a 






FXFLG 


FAC,FTM 


14 


FABS 




|aH>a 






none 


FAC 


15 


FASQ 




a2-^A 






FXFLG 


FAC,FTM 


16 


FNOR 




normalized A^A 


FXFLG 


FAC 


17 


FNEG 




-A->A 






none 


FAC 


20 


FJMP 


Y 


jump to Y 






none 


none 


21 


FJAP 


Y 


jump to Y 


if 


A>0 


none 


none 


22 


FJAZ 


Y 


jump to Y 


if 


A = 


none 


none 



A-2 
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Code (octal) 


Basi 


c Commands 


Operation 


Flags 








Registers 


23 




FJAN 


Y 


jump to Y if A<0 


none 








none 


24 




FJEV 


Y 


jump to Y if FXFLG set 


FXFLG 


(set 


to 


zero) 


none 


25 




FJDC 


Y 


jump to Y if FDFLG set 


FDFLG 


(set 


to 


zero) 


none 


26 




FJIX 


Y 


X+1->X, jump to Y if X 


none 








FINDX 


27 




FLDX 


Y 


I-^X 


none 








FINDX 


30 




FSTX 


Y 


X->I 


none 








none 



Command Summary - Extended Functions 



Code (oc 


tal) 


Extended Command 


31 


FSIN 


32 




FCOS 


33 




FATN 


34 




FLNE 


35 




FEXP 


36 




FSQT 



Operation 

SIN (FAC)-9>FAC 
COS (FAC)-^FAC 
TAN" 1 (FAC) — >FAC 
LOG e (|FAc|)— >FAC 
e FAC -^FAC 
VJFAC|->FAC 



Flags 



FXFLG 



(*) 



Registers 



FXFLG FAC,FTM 

FXFLG FAC,FTM 

FXFLG , FDFLG FAC , FTM 



FXFLG, FDFLG 



(1) 



none 



FAC, FTM 

FAC, FTM 

FAC 



(*) If input argument is negative, FNLNF internal to the FPLNE routine will 
be set non-zero (see write-up) . 

(+) If input argument is negative, FSFLG internal to the FPSQT routine will 
be set non-zero (see write-up) . 

(1) If input argument is too large, FEXOF internal to the FPEXP routine will 
be set non-zero (see write-up) . 
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APPENDIX B 



$FCQ 



*001 
002 






;SFCQ -"COMMENTED 
;74-43-402L 
;GRI909/30 C OMMAND 
FEXT=0 


EQUAT 

• 




003 
0*1 





_0 







' 000000 
' 000001 
_ 000101 

000 02 
_ 000102 
" 00000 3 

000103 


: E TAPE " " " " 
EXIT COMMAND 


05 
06 
007 
008 
009 
010 


FLDA=1 v 
FLDAD=101 
_ FSTA=2 ~ 
FSTAD=12S2 
FADD=3 
FADDD=103 


• 
• 

• 

• 
■ * 

• 
» 

• 

9 


LOA D FA C C OHMANO ; ~~ 

Irt AH E H f rirrr (^r co 

uvnu r A '._ uc rUnci 1 

. STORE F AC 

}. STORE FAf DEFERRED 
FLOATING ACQ'"' 

. JFJL QA_T I N G .. A P D OF. F E R R E D ' 
FLOATING S UB TR A C T " 

_F L A T I N G 3 US e ' EF E R RF n 
FLOATING MULTIPLY 
FLOATING MULTo DEFERRED 
FLOATING D I VIDE 

JE LO A T I N G D I V I D E DEFERRED' 

FLOATING ADD' MAGNITUDE '" 
FLTNG ADD MAG DEFERRED 
FLOATING SUB* M A G N I T UC E 
FLTNG SUB MAG DEFERRED 
TRACE 7 " ON "" "" 
TRACE OFF 


011 
012 






' 000004 
000104 


FSUE=4 
FSUBD=104 


013 
014 






' 090 05 
• £00105 


FMPY=5 
FMPYD=i05 

FDIV=6 

FCIVD=106 
FADf=7 
FADrD=i0 7 

'"FSBrs'ii'' "~~ 

FSBrD = lj0 
FTRN=lT "" 
FTRF=12 


• 

• 
* ' 

» 

m 

r 

• 

r 

* 

• 

• 
* 

• 
• * 


015 
016 






' 000006 
000106 


017 

018 

019" ~~~ 
020 




• a 

— ~- ^ 




000007 

!»-fll n 4 m *v 

_ t O C 1 B / 

00 01 
00011 


021 
022 






00 0011 
000012 


023 
024 
025 
226 
-0 27 
028 

















000013 
08001 4 
"0 01 5"" 
_0 00016 
000 017 
000020 


FSE7=13 

FABS=14 

FAS 0^15' ~~" 

FN0h=16 

FNEG=17 

FJMF=20 


m . 
» ■ 

* 
• 

• 

s 

. / 

• 
• 
• 
• 

• 


SE T ERROR " T RAP " ~'~ 
ABSOLUTE MAGNITUDE 

"square '"'"'.' 7" 

MnDMHI T'7u 

NEGATE " """ 

UNCONDITIONAL JUMP 


029 
30 
s 031 
032 
033 
034 


000021 

000022 

00 e 02 3" 

000024 

000025 

000026 


FJAF=21 

FJA2=22 

FJAM23~ 

FJEV=24 

FJDC=25~ ~ "'■' "~ "~~ 

FJI>=26 


JUMP IF FAD > OR = 
JUMP IF FA r = 
JUMP IF FAC < 
JUMP IF FXFLC- NOT 
JUM P IF FDF LG _ NOT 
BUMP INDEX* JMP'IF NOT 2 


035 
036 




__ ■ ' 






000027 

_0_00 0_3 0_... 
00 0031 
000032 
000 033" 
000034 
000035 
000036 


FLDX=27 
FST>=30 


• 

> 
* • 

• 

» 

• 

f 

; 

• 


LOAD P SE IDO -INDEX 
STORE PSEUDO-INDEX 


037 

038 
039 
040 


FSIM31 
FC0S=32 

FATf\ = 33~ 

FLNE=34 


SINE 
COSINE 
ARCTANGENT 
NATURAL L0GAF T THM 


041 
42 






FEXF = 35 
FSQT=36 


• 
j - 

• 


"exponential ~" 
square root 


% 
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APPENDIX C 



$SFIC 



«001 

002 






JSSFIC 
;71-13-107L 
;BASIC COMMAND TABLE 
ENTRY FTBLE 






003 
_.-0J1 








005 
_U_J.0.6_ 
U 007 
JJ 008 


00-000 
0^01 

ft ntrck o 

V V V V. J_ . 

0ff03 
_0.00.0A_ 
0^05 
012F06 
0-^07 
3 F_ 10_ 
0BF11 
J 12 
r ! 13 
0'0 , 11 . 
0T15~ 

0716 

0T17 
0^20 
00021 
0^22 
0'0 : 23 
_0 0r0-21 
0tF25 


1 177777 

00 000 
000000 
000000 
00 00 
flft 00 
000000 
00 00 
00000 
0* 00 000 
00 000 
00 


FT8LE = o-l 

WRO FFLOA 
WRD FPSTA 
WRD FPADD 


; 1 

;2 




U 009 


WRO FPSU3 
WRD FPMPY 


;i 
;5 




U 011 

. U 012 

U 013 

U 011 


WRD FPOIV 

. WRO ._F.PA.DM ....__ ._ 
WRO FPSBM 
WRD FPUNT 


?6. 
;7 

;10 

;ll. FPTRN 


-— 


U 015 
ILX16- 


WRD FPUNT 
WRO FPUNT 


;12 FPTRF 
;13 FPSET 




U 017 
U 018 


00 000 

000000 


WRD FPABS 
WRD FPASO 


Ml 
; 15 




U 019 
U 020 
U 021 
U 022 


000000 

000000 

000000 

00 000 


WRD FPNOR 
WRD FPNEG 
WRD FPJHP 
WRD FPJAP 


;16 
/ 17 

;20 
;21 





U 023 
U 021 


0000C0 
00 00 


WRO FFJAZ 
WRD FPJAN 
WRD FPJEV 
WRD FPJDC 


;22 
; 23 

; 21 

• 2^ 




U 025 
U 26 


00 000 

000000 

00 000 
000'0_0 




U 027 


WRD FPJIX 
WRD FPLDX 


126 
127 

;30 

;3i FPSIN 
- .32 ppjr'os" 
;33 FPATN 
731 FPL NE 
;35 FPEXP 
;36 FPSOT 
; 37 

; 10-7 7 ~ SAME AS" 37 

"7T00 TaTw A YS~ ILLEGAL > 

;101 (DEFERRED ) 
";i02" (DEFERRED ) 

;103 (DEFERRED) 

;iei (DEFERRED) 

;105 (DEFERRED ) 
7 1_£ (D EF E RRE D ) " 

;107 (DEFERRED) 




U 029 
U 030 


06T27 
00-£F30 


00 000 
00 00 


WRD FPSTX 
WRD FPUNT 
WRD FPUNT 
WRD FPUNT 
WRO FPUNT 
WRO FPUNT 




U 031 

_y_j.3_2" 

U 033 
U 031 


0IF31 
0^32 
0T33 
J10_£3_?L 
0^35 
00036 


000000 
000'000 
000000 
0' 00 00 





U 35 
U 036 


00000 
00 00 


WRD FPUNT 
WRD FPUNT 




037 
070 




NLIST 
LIST 




U 071 
U 072 
U 073 
__U 71 
U 75 
U 76 


00F77 

00100 
0101 
00102 
0103" 
00f01 
0f05" 

0.107 ~ 


00000 
0' 00'000 
000000 
000000 
"0 00 00 
00 0£0 


WRD FPUNT 
WRD FPLDA 
WRD FPSTA 
WRD FPADD 
WRD FPSUB 
WRD FPMPY 





U 277 
U 078 


00 000 
000000 


WRO FPDIV 
WRO FPADM 




U 079 

080 


000000 

1 " 000110 


WRD FPSBM 
END 


;110 (DEFERRED) 
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APPENDIX D 

%FGG - Floating Point Constant Generator 

%FCG - Floating Point Constant Generator 

%FCG is a utility routine which is provided should the user wish to 
use floating point constants whose octal equivalences are unknown. With 
%FCG, the user can type in a floating point decimal number and receive 
the equivalent internal floating point representation. 

%FCG occupies locations 0-2660 inclusive. 
Operating Instructions 

1. Load %FCG by means of %ALH. 

2. Turn teletype on-line. 

3. Set SC=0. 

4. Press START. 

5. %FCG responds with a carriage return, line feed. 

A Tr7r.Q o c-hr-i -n n- /-. -F nn +-/-> 1 "3 n U n -v- r-. .-. -I- ^ ■*.* 4-^^^4 4- ~ J „-,' .i-1_ 1 

~. j.j £/<& a. ^n.i.j-LiQ kjj. uf/ i_w j.^-|/-j i.uai.ai.LCLi3 Lciiiuuctucu w-Lt.ll GUI cqUct-L 

sign (=) . The character string should be. in the format described 
in section 3.3, where the delimiter is an = rather than a carriage 
return. Typing a back arrow at any point causes the first previous 
non-back arrow to be ignored. Typing rubout at any point causes 
%FCG to type a carriage return, line feed, question mark (?) and 
returns to step 5. Typing more than 13 characters before typing 
an equal sign has the same effect as typing rubout. 

7. When the user terminates the character string with the equal 
sign, %FCG responds by typing the 2 word floating point equivalent 
(in octal) and returns to step 5. 

8. If the character string did not conform to the format specified in 
section 3.3, the message SCAN ERROR is typed and %FCG returns to 
step 5. 
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9. If the character string resulted in a number whose magnitude was 
outside the range 1.469369E-39 to 1.701411E+38 or if the character 
string contained more than 10 1Q mantissa digits, the message 
ANSWER OUT OF RANGE is typed and %FCG returns to step 5. 
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APPENDIX E 
FPSET - Error Trap Routine 

Introduction ; 

A series of floating point calculations on an unknown data base can 
generate errors, such as results which exceed the capacity of the machine 
or dividing by 0, etc. In order to facilitate the localization of the oc- 
currence of such errors, FPSET is provided and serves as an error trap 
routine. When an error specified by the user is detected, FPSET will 
interrupt the operation of the interpreter and give control to a user 
supplied error routine. FPSET supplies the user error routine with the 
following information, allowing the user to pinpoint the step in his cal- 
culations at which the error occurred: 

AX = recursion level at which the command at the address in AY was 
executed. 

AY = address of command executed immediately previous to detecting 
the error. 

TRP = error number indicating which flag in the user supplied error 
list was set non-zero. (TRP = position of address of error 
flag in user supplied table (see usage)) . 

The recursive capability of the interpreter somewhat complicates cer- 
tain usages of FPSET and, for this reason, three modes of operation of 
FPSET are allowed: "On", "Off", and "Partially On". The latter mode 
allows FPSET to keep track of commands and recursion levels without ex- 
amining any error flags. The utility of this mode is described in the ex- 
amples at the end of this appendix. 
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Usage: 

FPSET is controlled by the use of the FSET (code 13g) command in the se- 
quence of floating commands being executed by the interpreter. There are three 
modes of operation of FPSET: 1) ON, 2) OFF, and 3) PARTIALLY ON. 

1) To turn FPSET ON, the command is 

FSET A 
where A is the address of a table with the following format: 



A: 



WRD 


ERR 


WRD 


FLG1 


WRD 


FLG2 



USER ERROR ROUTINE ENTRY 
ADDRESSES OF SYSTEM 
FLAGS TO BE CHECKED. . . 



WRD 



-1 



;END OF TABLE SIGNAL 



When this FSET command is encountered with a positive non-zero value for 
A, FPSET will examine the state of every flag listed in the table at address A 
after every command executed by the interpreter from the point of the FSET A 
command onward. Whenever a flag whose address is in the user list has become 
non-zero (indicating an error), FPSET zeros the flag, and then gives control 
to the user error routine at the address specified in the first word of the 
table at A. The information supplied to the user error routine is as stated 
in the introduction. 

The user error routine may use $SFI, but any additional errors which might 
occur will not be checked by FPSET, and any FSET commands in the command se- 
quence will be ignored. If the user wishes to call $SFI in his error routine, 
it is up to him to save and restore the states of the interpreter system flags 
and the floating accumulator (FAC) before and after such $SFI use. 
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2) To turn FPSET "off", the command is 

FSET 

This completely disconnects FPSET from the interpreter. 

3) To turn FPSET "partially on", the command is 

FSET N 
where N is any negative number. 

In this mode, FPSET will keep track of the current command address and 
recursion level but will not examine any flags. If FPSET is at some later 
time turned "on" and discovers a flag set non-zero, the level and the com- 
mand address will be correct within certain limitations (see Notes) . 

This mode is useful when the user does not wish to enter his error 
routine for errors which occur during execution of a section of his command 
sequence. For example, the command sequence may contain an FJEV or similar 
test for conditions known to the user, and with FPSET "on", these conditions 
could be altered (cleared) if the corresponding flags are in the user error 
list at A. In this case, an FSET N (where N<0), issued before entering this 
section, and an FSET A (A>0, A=address of table), issued after completion of 
this section will allow FPSET to retain the necessary information should 
other errors occur and allow the section itself to operate properly. 

User Error Routine : 

Basically, the user error routine may do anything. However, the user must 
remember that his error routine is considered as an extension of the inter- 
preter. At the completion of the error routine, control should be given back 
to the interpreter via a JU FGET or similar return. 

Register AX is used as an argument upon return (via JU FGET) and can turn 



FLOATING POINT MANUAL 
74-44-001-C 



FPSET "on", "off", or "partially on" according to AX>0, AX=0, or AX< 
respectively. If AX>0, it must be the address of an error table as de- 
scribed above (it need not necessarily be the same one as before) . 

Notes : 

1) It is generally the case that an error flag is set by the command 
immediately preceding the detection of the flag non-zero. In the 
case where FPSET was not "on" at that moment, but was turned on 
later and found the flag non-zero, FPSET will report that it does 
not know which command caused the error by giving an AY value 
which points to the FSET "on" command or by AY = -1. The dif- 
ference in meaning of the two AY values is as follows: 

a) AY = address of FSET "on" command if the flag was non-zero 
at the time the FSET "on" command was encountered. 

b) AY = -1 if all flags were zero when the FSET "on" was en- 
countered, but a flag was set non-zero later at a point 
which indicated that the command which caused the error 
was at a recursion level one less than the level at which 
the error was detected. This situation is avoided if 
FPSET is partially on throughout until it is turned on. 

2) If the user wishes to restart his entire program or in any other way 
wishes to use the interpreter without reloading it, he should make 
sure that FGET+1 is initialized to FARGD and FPUSH is initialized 

to FLIST-1. 

3) A FEXT command does not affect the mode of operation of FPSET, i.e. 
upon re-entering $SFI, FPSET will operate as per the last FSET com- 
mand encountered before the FEXT. 

Op e r a t ing Ins t rue t ions : 

1) Edit the Command Table ($SFIC) source to include WED FPSET in place 
of WED FPUNT;13 which is on the tape as supplied, and assemble it. 
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2. Load FPSET and the new Command Table with the system. 

3. Start user program which has FSET commands in the usual way. 



Examples 

1. Typical usage of FSET "on" and "off" 



User Main Code 



A: 



ENTRY A 



JU $SFI 



FSET A 



FDiy. 



FSET 



FEXT 



WRD ERR 

WRD FXFLG 

WRD FDFLG 

WRD -1 



END 



;Turn FPSET on 



(causes divide check. FPSET gives control to) 
This returns control to interpreter 



►ERR: 



to execute next command 

Errors in here 
are not detected 
by FPSET 



jAddress of user error routine 
;Address of exp over/ under flow flag 
;Address of divide check flag 
;End of table 



User Error Routine 



ENTRY ERR 



(TRP = 000002 
indicating second 
flag in table at A 
was set) 



MRI A, AX ;Turn FPSET back on 
■JU FGET 
END 



i 

0^ 



O 

> 
H 
M 

-"J 3 

I 

■P- ^ 

■!>• O 

I M 

O S| 

O H 

O ^ 



Example 



2. Use of FSET "Partially On" 



User Main Code 



JU $SFI 



FSET -1 ;tum FSET partially on 



FJEV ;Reason for FSET partially on 
FDIV ; Error (divide check) occurs here 
FUFN ;User defined function — 



User Coded Extended Function 



FPUFN: JU $SFI 



FSET A 



A: WRD ERR 
WRD FDFLG 



WRD -1 



;Turn FPSET on 
(Detects FDFLG error 
immediately and traps 
to user error routine) 

;User supplied table 



i 



In this example, because FPSET was only partially on when the error actually occurred, the 
error trap will indicate that the erring command was FSET. It will, however, indicate that the 
divide check flag was on (TRP = 000001 since FDFLG is first in table A) and that the error oc- 
curred in recursion level 2 since FPSET was turned on in the user function. 



f 
o 
> 

H 
M 

-P- hd 
■P> O 

I IH 

2 « 
O H 

O 5 






Examples 



3. Another usage of FPSET "Partially On" 



User Main 


Code 




JU $SFI 






FSET -1 


;Tum FPSET partially on 




. • 






FJEV 






FUFN 











User Coded Extended Function 



FPUFN: 



In this example, FPSET indicates an error on 
recursion level 1, and that the command 
causing the error was FUFN (i.e. AY will have 
address of FUFN command). This is as it should 
be since the arguments given to the user function at 
the FUFN caused the function to set an error con- 
dition. 

Note: If the FSET -1 had not been issued in the Main 
Code, FPSET would have indicated the AY= -1 condition. 
It would, however, indicate the correct flag and the 
correct level (i.e. level 1). 



JU $SFI 



FSET A 



FEXT 



ZM P1,FUFLG 



JU 



$SFI 



A; WRD ERR 

WRD FXFLG 

WRD FDFLG 

WRD FUFLG 



WRD -1 



;Turn FPSET on 
(no errors yet) 






Input argument cause 
( user coded function 
1 to set error flag 



-fr. error is detected here 
by FPSET 



i 

00 



g 

H 

O 

O 
M 



o 



> 
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APPENDIX F 



Trace Routine 

The floating point trace is a debugging aid which prints 
the value of pertinent variables in $SFI and the user's program 
before the execution of each floating point pseudo command. The 
variables printed are: 

A. current level of $SFI 

B. address of the instruction to be executed 

C. code for the instruction to be executed 

T\ T<TXTrw /JTT__o-J „ f_.t_J__l_. \ 

U. r 1HLIA V-L-LUclLXUg JJOIUC XTia&X.) 

E. FDFLG (divide check flag) 

F. FXFLG (exponent overflow/ underflow flag) 

G. FAC (floating point pseudo accumulator) 
H. effective address of argument, if any 
I. value of argument, if any 

The user specifies which of the variables are to be printed 
and the maximum level for which he wants the information printed. 
This is done through the floating point pseudo commands FTRN 
and FTRF. 

To turn the trace on and specify which of the nine variables 
are to be printed, the pseudo command is: 

FTRN X 
where bits 0-8 of the integer X correspond to the variables A through 
I above. For each bit that is on (=1) the corresponding variable 
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will be printed before the execution of each floating point command. 
The FTRN command sets maximum recursion level to be traced to 7, 
turns the trace on and prints a heading (A-I) , telling which variables 
are to be printed. The "trace on" causes the specified variables to 
be printed on one line before each instruction is executed. 

The printed value of variables H (argument effective address) 
and I (argument) need further explanation. If the command to be 
executed has no argument, columns H and I will be blank. If the 
argument is floating point, I is printed as a floating point deci- 
mal number, otherwise it is octal. If the command is FTRN, FTRF or 
a JUMP command, then H is the address+1 of the command and I is the 
contents of H. In the case of the commands FLDX Y, or FSTX Y, H is 
the address Y and I is the contents of Y. For user coded extended 
functions, columns H and I will be blank. 

To turn the trace off beyond a certain level, the pseudo command 
is: 

FTRF X 
where the integer value X specifies the maximum recursion level (1-7) 
for which the specified variables are to be printed. If X is less 
than or equal to 0, the trace is disabled and no variables will be 
printed from then on until another FTRN X command is executed. 
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Not ess: 



1) When the trace has been turned on, certain locations in 
$SFI are changed. $SFI is restored to its original state 
only after the trace is completely disabled by an FTRF 
command. Therefore, v to restart the user program or use 
$SFI without reloading when the trace has been on, the user 
should make sure that: 

a) FGET+1 is initialized to FARGD 

b) FSPLT is initialized to 11 0000 06 

c) FSPLT+1 is initialized to FTMHI 

d) FPSTA+1 is initialized to FARGD 

2) The trace program cannot run at the same time as FPSET . 
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«001 ;EXAMPLE ! 

002 JTHIS EXAMPLE USES TWO FTRN COMM AMDS o 

003- ;THE 1ST FTRN SELECTS VARIABLES AjB^jOjFjGjH 

04 ; TO BE PRINTED o THIS IS IN E FF EC T UN T IL THF 

005 ;?ND FTRN IS EXECUTED,. THE SELECTED VARIAELES 

006 ;ARE THEN CHANCED TO A ,B >? sE *F ,6 jH » THE 

007 JFTRF COMPLETELY DISABLES THE TRACE* 
08 ;THE SSFIC LISTING WITH THE ADDITION CF 
009 ;THE FPTRN AND FPTRF ADDED IS NOT SHOWN 

U 010 00800 00 0100 03 JU SSFI 

00001 00000 

011 00802 00 0000 11 FTRN 757 ;PRINT A t B >C rO >F > G *H * I 
00003 000757 

012 00001 00 '0000 27 FLDX W 
000:05 1 000032 

013 00806 00 '0000 01 FLDA X ;Y=X*Y 
000:07 1 000033 

011 00010 00 "0000 05 FMPY Y 

00&11 1 000035 

015 00812 00 '0000 02 FSTA Y 
000/13 1 000035 

016 00014 00 '0000 26 FJIX 0-6 ;DONE LOOP 3 TIMES? 
00015 1 000006 

017 00816 00 0000 11 FTRN 367 ;PRINT A > B sC sE jF jG >h 
000"17 000367 

018 00820 00 '0000 01 FLDA X 
000:21 1 000033 

019 00022 00 "0000 06 FDIV Y 
00K23 1 000035 

020 00824 00 '0000 02 FSTA Z 
000:25 1 000037 

021 00826 00 0000 12 FTRF ; TURN TRACE OFF 
00027 00'000 

022 00030 '0000 00 

023 00031 2 '0100 08 

024 00032 177775 W: WRD -3 ;LOOP COUNT 

025 00033 050000 X: 
00034 000203 

026 00035 040000 Y: WRD 40000,202 ;2o0 
00036 000'2£2 

027 00837 000000 Z: WRD 0>0 ;0o0 
00040 000000 

028 JEDITED SFCQ TAPE FOLLOWSo AN 

029 JNLIST WAS ADDED AT THE BEGINNING 

030 ;T0 CUT DOWN ASSEMBLY LISTING TIMF 
31 NLIST 
041 1 ' 000041 END 



FFXT 






FOM 


HIT 




WRD 


_ 1 


;LOOP 


WRD 


50000,223 


i 5o0 
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PRINTOUT FROM EXAMPLE 1 



B 



D 



H 



1 00004 


00027 


000000 





+ 8 


.320525E-25 


1 00006 


00001 


177775 





+ 8 


.320525E-25 


1 00010 


00005 


177775 





+ 5. 


►000000E+00 


1 00012 


00002 


177775 





+ 1. 


►000000E+01 


1 0001ZI 


00026 


2 77775 





+ 1 < 


"■ I-/ JE-/ X^ A^/ K»/ C/ J— » * *_/ A 


i 00006 


00001 


177776 





+ 1. 


.000000E+01 


1 00010 


00005 


177776 





+ 5, 


►000000E+00 


1 00012 


00002 


177776 





+ 5. 


.000000E+01 


1 ' 00014 


00026 


177776 





+ 5« 


.000000E+01 


1 00006 


00001 


177777 





+ 5. 


.000000E+01 


1 00010 


00005 


1 77777 





+ 5« 


.000000E+00 


1 00012 


00002 


177777 





+ 2. 


500000E+02 


1 00014 


00026 


177777 





+ 2. 


500000E+02 


1 00016 


00011 


000000 





+ 2. 


500000E+02 



00032 


1 77775 


00033 


+5.000000E+00 


00035 


• +2.000000E+00 


00035 


+2.000000E+00 






00033 


+5.000000E+00 


00035 


+1 .000000E+01 


00035 


+1 .000000E+01 


00015 


000006 


00033 


+5.000000E+00 


00035 


+ 5-000000E+01' 


00035 


+5.000000E+01 


00015 


000006 


00017 


000367 



B 



H 



1 


00020 


00001 


1 


00022 


00006 


1 


00024 


00002 


1 


00026 


00012 



+2.500000E+02 00033 

+5.000000E+00 00035 

+2.000000E-02 .00037 

+2.000000E-02 00027 
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*001 ;EXAMPLE 2 - THIS EXAMPLE PRINTS ALL c VARIANT 1 ? 

g02 *FOR RECURSION LEVELS 1 AND 2« THE USER EXTEND? 

P03 l FUNCTION IS AT RECURSION LEVEL 2 AND ITS ENTFY 

04 ; POINT HAS BEEN ADDED TO SSF IC AT CODE 77 TH!* 

005 ;STEP IS NOT SHOWNo 

006 ENTRY FPUFN 
U 007 00000 0100 03 JU $SFI 

00P01 000000 

008 00802 00 0000 11 FTRN 777 ;PRINT A s 5 jC j D ,E jF jG > H * T 
00003 00777 

009 000-04 00 0000 12 FTRF 2 ;MAX TRACE LEVFL-2 
00005 000002 

010 00006 00 '0000 27 FLDX X 
00007 1 000024 

011 00610 00 0001 01 FLDAD X + l ;FETCH ARG DEFERRED 
00011 1 000025 

012 00012 00 '00'00 02 FSTA Y 
00013 1 000027 

013 00014 00 '0000 37 FUFN Y i USER E XT ENDED FUNCTION 
. 00ST15 1 292227 

014 00016 00 "0000 26 FJIX o-6 ;DONE? 
000"17 1 00'010 

015 000:20 00 0000 12 FTRF ;YESj TRACE OFF 
00021 000000 

016 000:22 '0000 00 

017 00023 2 0100 00 

018 00024 1 77776 X: 

019 00K25 1 00032 

020 00ft26 1 000032 

021 00H27 000000 Y: 
00030 000000 

022 00031 076400 Z: 
00032 0005211 

023 00033 062000 C5 0: 
00034 000206 

024 00035 050 000 
00036 000204 

025 ' 000037 FUFI^=37 > USER FUNCTION CODE 

026 ;USER EXTENDED FUNCTION - INCLUDED IN 

027 ;SAME ASSEMBLY AS CODE WHICH USES IT (ABOVE) 

028 ;FOR SAKE OF SPACE I N TH I S EXAMPLE* 
U 029 00037 00 01'00 03 FPUFN: JU FARGD 

0040 000000 

030 00041 11 '00"00 06 RM AX,ARG*-1 

00042 1 000050 

U 031 00043 00 0100 03 JU $SFI /ENTER LEVEL 2 

00044 000'000 

032 00045 00 '0000 01 FLDA Z j500o0/Y 
00046 1 000031 

033 00047 00 '0000 06 ARG: FDIV 
00050 0' I 00000 

034 00051 00 0001 02 FSTAD X + 2 
• 00052 1 22B226 

035 00053 00 '0000 00 FEXT 
U 036 00054 00 0100 03 JU FGET 

00055 000000 

037 ;EDITED SFCC TAPE FOLLOWS WITH NLIST 

038 NLIST 
049 1 E00056 END 



FEXT 








FOM 


HLT 






WRD 


-2 




;LOOP COUNT 


WRD 


C5 0-1 




;FETCH AD Ri DEFERRED 


WRD 


C53-1 




;STORE ADRj DEFERRED 


WRD 


0i0 




;FUFN ARGo 


WRD 


76400J 


.21 1 


; 5 ■ • 


WRD 


6200 0j 


>2Z6 


; 5 e 


WRD 


5000 0j 


>204 


; 1 
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PRINTOUT FROM EXAMPLE 2 



B 



H 



1 


00004 


00012 


000000 








1 


00006 


.00027 


000000 








1 


00010 


00101 


177776 








1 


00012 


00002 


177776 








1 


000 1 4 


00037 


i 77776 





ra 
*• 


2 


00045 


00001 


177776 








2 


00047 


00006 


177776 








2 


00051 


00102 


177776 








2 


00053 


00000 


177776 








1 


00016 


00026 


177776 








i 


00010 


00101 


177777 








1 


00012 


00002 . 


177777 








1 


00014 


00037 


177777 








2 


00045 


00001 


177777 








2 


00047 


00006 


177777 








2 


00051 


00T02 


177777 








2 


00053 


00000 


177777 








1 


00016 


00026 


177777 








1 


00020 


00012 


000000 









+6.902202E-21 00005 

+6.902202E-21 00024 

+6.902202E-21 00033 

+5.000000E+01 00027 

a e; - d ffi ffi ffi tt £i TT j. 1 

+5.000000E+01 00031 

+5.000000E+02 00027 

+1.000000E+01 00033 

+1.000000E+01 

+1.000000E+01 00017 

+1 .000000E+01 00035 

+1 .000000E+01 00027 

+1.000000E+01 

+1 -000000E+01 

+5.000000E+02 

+5.000000E+01 

+5.000000E+01 

+ 5.000000E+.01 00017 

+5.000000E+01 . 00021 



000002 
177776 

+5.000000E+01 
+0.000000E+00 

+5.000000E+02 
+5.000000E+01 
+5.000000E+01 

000010 

+ .1.000000E+01 

+5.000000E+01 



00031 +5.000000E+02 
00027 +1 .000000E+01 
00035 +1 .000000E+01 



000010 
000000 
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*001 {EXAMPLE 3 

002 ;THIS IS THE SAME AS EXAMPLE 2 

003 ;EXCEPT THE MAX I MUM RECURS I N 

004 JLEVEL PRINTED IS LEVEL 1 DUE 

005 ;T0 THE FTRF 1 COMMAND© 

006 ENTRY FPUFN 
U 007 00000 00 0100 03 JU SSFI 

00001 000000 

008 22722 00 0000 11 FTRN 777 ;PRINT A t B >? >0 sE t F sQ> t H 1 1 
00C03 000777 

009 00004 00 0000 12 FTRF 1 ;MAX TRACE LFVEL=^ 
00005 000001 

010 00^06 00 '0000 27 FLDX X 
000*07 1 000024 

011 00ffl0 00 0001 01 FLDAD X + l ;FETCH ARG DEFERRED 
000 r l1 1 000025 

012 00012 00 '0000 02 FSTA Y 
000*13 1 000027 

013 00014 00 0000 37 FUFN Y ; USER EXTENDED FUNCTION 
00015 1 000027 

014 000-16 00 *0000 26 FJIX .-6 ;DONE? 
00017 1 000010 

015 00020 00 0000 12 FTRF ; YES* TRA^E OFF 
00021 00000 

016 00022 00 '0000 00 

017 00 0*23 02 0100 00 

018 00024 1 77776 X: 

019 00*25 1 000032 

020 QW26 1 000032 

021 001*27 000000 Y: 
00930 00000 

022 00031 076400 Z: 
00032 0005211 

023 00-033 062000 C50: 
000-34 000206 

024 00935 050000 WRD 50000*224 ;10 o 
00036 000204 

025 ' 000037 FUFh=37 j.USER FUNCTION CODE 

026 JUSER EXTENDED FUNCTION -.INCLUDED IN 

027 ;SAME ASSEMBLY AS CODE WHICH USES IT (ABOVE) 

028 ;FOR SAKE OF SPACF IN THIS EXAMPLE o 
U 029 00037 00 0100 03 FPUFN: JU FARGD 

00040 000000 

030 00041 11 '0000 06 RM AX^ARG+1 

00042 1 e00050 

U 031 00043 00 0100 03 JU SSFI ;ENTER LEVEL 2 

00044 00 000 

032 00045 00 0000 01 FLDA Z ;500o0/Y 
00046 1 000031 

033 00047 P 00 '0000 06 ARG: FOIV 
00 05 000000 

034 00051 00 '000.1 02 FSTAD X*2 
00052 1 222226 

035 00053 00 '0000 00 FEXT 
I 036.00054 00 0100 03 JU FGET 

00055 00000 

037 ;EDITED SFCC TAPE FOLLOWS WITH NLIST 

038 NLIST 
049 1 ' £00056 END 



FEXT 








FOM 


HLT 






WRD 


-2 




;LOOP COUNT 


WRD 


C50-1 




;FETCH AD R j DEFERRED 


WRD 


C50-1 




; STORE ADR* DEFERRED 


WRD 


0*0 




;FUFN ARGo 


WRD 


76400- 


>21 1 


; 5 o 


WRD 


62020. 


t226 


;50 o 
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PRINTOUT FROM EXAMPLE 3 



B 



D 



H 



00004 00012 000000 +6.902202E-21 

00006 00027 000000 +6. 902202E-21 

00010 00101 177776 +6.902202E-21 

00012 00002 177776 +5.000000E+01 

00014 00037 177776 +5.000000E+01 

00016 00026 177776 +1 .000000E+01 

00010 00101 177777 +1.000000E+01 

00012 00002 177777 +1 #000000E+01 

00014 00037 177777 +1 .000000E+01 

00016 00026 177777 0. +5.000000E+01 

00020 00012 000000 +5.000000E+01 



00005 


000001 


00024 


177776 


00033 


+5.000000E+01 


00027 


+0.000000E+00 


0001 7 


000010 


00035 


+1 .000000E+01 


00027 


+5.000000E+01 


0001 7 


000010 


00021 


000000 
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APPENDIX G 



System Storage Requirements 



Routine 

$SFI 

$SFIC 

$SFEC 

@SCF 

@SFC 

@FXC 

FPSIN 

FPATN 

FPLNE 

FPEXP 

FPSQT 

FPSET 

FPTRC 



Model 30 
1360 g (752 10 ) 
110 (72) 
110 (72) 
406 (262) 
306 (198) 
213 (139) 
173 (123) 
146 (102) 
164 (116) 
201 (129) 



127 (87) 



230 (152) 
1020 (528 



Model 40 
760 8 (496 1() ) 

±iu \l£) 

110 (72) 

367 (247) 

263 (179) 

175 (125) 

153 (107) 

145 (101) 

145 (101) 

150 (104) 
65 (53) 

230 (152) 

774 (508) 



Description 
Basic package 
Command table 
Ext. command table 
char/ float pt. 
float pt./char 
conversion common 



trace routine 



Typical Configuration Storage Requirements 



Basic package 
no conversion 

Basic package 
with conversion 
extended Functions 

Total system* 

(no debug features) 



1470 (824) 



2617 (1423) 
1055 (557) 

3674 (1980) 



1070 (568) 



2137 (1119) 
722 (466) 

3061 (1585) 




o 
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